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part i JO THE READER 

The first 100 pages carefully lead you from "watching the computer 
count fast" to where you have enough skill and confidence to write your 
own computer programs for creating random art, solving equations, or 
exploring microEESEARCH problems that interest you. 

If you are a complete novice , start with the introduction. 
If you are a beginner , start with Lesson 1. Work as many 

practice problems as you need. 
If you are a bit more sophisticated , read the summary at 

the end of Lesson 1, work a few problems from Practice 

Session 1. Then continue with Lesson 2. 
If you can already program in BASIC , read the surrmaries at 

the end of Lessons 1 & 2, work a few problems, and continue 

with Lesson 3. 
Lesson 4 introduces graphics, conputer assisted art and some 

of the special goodies available on the TRS-80. 
Lesson 5 is devoted to solving problems that are easy to 

understand, but which would be very hard to solve with- 
out the assistance of a computer. 

PART II 

The first five Lessons will teach you most of what you need to know 
to use your computer in solving real problems. 

The nature of Lessons 6 to 17 is different. These lessons are 
devoted to special topics you may or may not need to learn about, de- 
pending upon your own particular interests. Lessons 6 to 17 may be 
read in any order, or ignored entirely until needed. Consult the 
table of contents for topics covered. 

The important thing is to HAVE FUN with your TRS-80. Remember, 
today's micro-computers are more versatile and more powerful than 
computers which cost 100 times as much, 20 years ago. Whether you 
purchased- your TRS-80 as a playtoy or a serious tool, we hope you will 
soon be using it for both. 

* * * * 

There are many different micro-computers, each with its own 
slightly different version of the BASIC computer language. Most of 
the instructions used in this book work on all versions of BASIC . 
The most frequent differences occur in the graphic display instructions 
(chapters 4 and 13) and in the string handling instructions (chapter 14). 
A chart is presented on pages 219 to 222 that displays the availability 
of various BASIC language instructions in the eight most common versions 
of the TRS-80, each of which is available with several different memory 
sizes and with different accessories. 
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TO THE INSTRUCTOR 

This book is designed to be used by students for self-instruction 
(with or without a teacher's assistance). It has been successfully used 
by junior and senior high school students, secretaries, college students, 
6th grade math classes, as well as a group of busy doctors and business 
people. Numerous examples are developed step by step to demonstrate the 
thinking involved. Since computing is a skill that must be learned by 
practice, a variety of problems are included. As with any acquired skill, 
a good coach can keep the neophyte interested and help develop good hab- 
its. Computing can and should be FUN. Students are fascinated by com- 
puters and will be responsive to your teaching. 

Most readers are familiar with whole-number arithmetic, but may not 
have investigated the many tantalizing arithmetic puzzles that are easy 
to understand but hard to solve, unless a computer is available. A num- 
ber of our problems come from the area of Number Theory. Problems like 

1. Find squares like (ll) 2 = 121 or (264) 2 = 69696 whose digits 
read the same forward as backward (palindromic squares), 

2. Find squares such as ( 35853 ) 2 = 1285437609 in which all ten 
digits are present in the square. 

are not difficult to program once the rudiments are learned (Lessons 1, 
2,3). Each reader is encouraged to use common sense to write more effec- 
tive programs. Lessons 4,5,7,9,13,14, and 17 provide numerous interest- 
catching problems from non-mathematical areas. We hope each reader will 
discover new interests and power as his programming skills develop. 

Readers are encouraged to develop orderly (top-down, structured) pro- 
gramming habits without being preached at. Your assistance is sought 
in helping students develop this vital skill. 

Lessons 5 and 17 present 75 micro-research problems that are easy to 
understand. Micro-research problems demand thoughtful program design to 
produce results with a reasonable investment of computer time. All have 
been successfully programmed by students with no more than 9th grade 
mathematical skill . In many cases, the programs "develop" as do the ex- 
amples given in the text, starting first with a brute- force attack which 
could require weeks of computer time, and then gradually, as the early 
results are available for examination, refinements in program design 
(early trimming of logic trees) suggest themselves. Eventually, many 
students devise programs that produce more results in 5 minutes than the 
original program could produce in five days. 

Appreciation and understanding of the value of skillful computing 
techniques are developed as needed, through experience. 
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The material has been used with Models I, II, & III TRS-80 micro- 
computers to teach introductory computing concepts to several different 
groups, including students in grades 5 through 14, adult neophytes having 
no experience on computers and little math beyond the 8th grade, secretar- 
ies and secretaries-in-training, a group of busy doctors, bankers and 
business people, and casual adult and child visitors at a museum. Each 
contributed to the presentation contained herein. Every vital concept is 
presented more than once, in different environments, to aid the student's 
comprehension. The important thing is to be sure readers also actively 
program computers, not passively read the text. Passive reading, like a 
spectator sport, does not develop skills. Encourage students to really 
program various kinds of problems. 

With the exception of Lesson 4 ART & GRAPHICS and a few special 
goodies available only on the TRS-80 Level II BASIC, most of the material 
presented here is applicable to any computer using BASIC. 

The first five lessons form a unit. Lessons 6 through 17 may be 
taken up in any order or ignored, as individual interests suggest. 

Our experience suggests having two or three students per computer 
produces better results than one person per computer — particularly in 
the early stages. 

Your authors welcome criticism, suggestions and correspondence. 

Richard V. Andree & Josephine P. Andree 

The University of Oklahoma 

Norman, Oklahoma 73019 
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The first five Lessons (100 pages) lead you from "watching the computer 
count fast" to enough skill to write your own programs to create com- 
puter art, solve messy equations or explore micro-research problems of 
your own choice. 

If you are a complete novice 

start with the introduction 

If you have used a computer keyboard but never written a program 
start with Lesson 1 

If you are a bit more knowledgeable 
start with lesson 2 

If you can already program in BASIC 
start with Lesson 3 

If you understand BASIC, except for graphics 
start with Lesson 4 



If you are a competent BASIC user 

work a few problems from Lessons 3 and 4 and start with Lesson 5 
which contains micro-research problems for your enjoyment. 

Lessons 6 to 16 take up specialized topics discussed on page 103 . 

Lesson 17 continues with the micro-research problems begun in Lesson 5. 




We assume you have no knowledge of computing, but are interested in 
learning. The way to learn computing is to compute! 

Just as in golf or bowling, it is more helpful to read about comput- 
ing after you have tried your hand at the game enough to have a feel for 
its rudimentary swing. So let's begin. 

Let's start by using the computer as if it were a pocket calculator. 
It is a waste of the computer's power, but it will help you become famil- 
iar wi th the keyboard. Have someone turn it on for you. Depress the 
white |ENTER| key a couple of times. 




The keyboard is similar to a typewriter. If you wish to use a symbo l 
like = or + [=1 f+1 from the top row of the key, depress the I SHIFT 1 



key. The computer automatically types capital letters, as shown on the 
keys, so do not use the shift key unless you wish a symbol from the top 
half of a key. 

Don't try to "read" this introduction — the way to learn computing 
is to compute, so wait until you have a TRS-80 at your fingertips before 
continuing. 



Depress the following keys: 
1. 1BREAKI 



2. lENTERl 



{Thlb, Intenxuptt, the compute,*. In 
ca&e aX wot, doing something.) 

{Tkl6 am the key you. wilt me. to 
tend gown, typed menage to the 
computet. ) 



3. Now type: PRINT 3+549-2 ] ENTER] 



The conputer should respond with the sum 15. 
Your CRT-display will now show: 



/ready 

>PRINT 3+5+^-2 

IS 
READY 

>_ 




The > symbol Indicated the. compute* 
16 n.eady to ne-celve youx typed 
lni>tn.uction. 

The. - ihom whetie the next typed 
x ' chaxxicten. will appeax. 

Should you wish to clear the screen, depress the I CLEAR] button, but there 
is no need t o do so unless you wish it cleared. You may also type 



CLS | ENTER I to CLear the Screen. 



What will the answer be if you type 
PRINT 4*9 - 2 



ENTER 



Uoi>t compute/a* ube the iymboli, 
* ion multiply and I ion. divide. 



Try it and see. 



Forecast the result of each of the following, and then try them out 
on your TRS-80. 



PRINT 4/3 
PRINT 9*5 



ENTER 



ENTER 



PRINT 36(3*18 ] ENTER 
PRINT 1/2 + 0.6 



ENTER 



Mote lb zen.o on the top kow. 
It, the letten "oh" which U on 
the second kow. Voun computen. will 
be unhappy l{, you con&u6e them. 
Tn.y in once and hee ion. youxt,eli. 



Let's try some hard problems 
PRINT 774*817 lENTER 



PRINT 79276/511017 |ENTERJ 
PRINT 317*1.41421 - 246*3.14159 



li you type 774*817 lEMTERI without 
PRINT, the computen. will do the 
arithmetic but will not pnlnt on. 
i,tx>n,e the nsAvJUL. 



ENTER 



The l.^"*" I key is another important key for those of us who occasion- 
ally mistype. It will bac kspace and erase one ch aracter at a time. If 
you hold down the I SHIFT 1 key while you depress I * ' j the entire line 
you typed will be erased. Try it and see for yourself. 



Type 

PRINT "HERD ' 



ENTER 



Note. the. " " maxlu. 
Witat ha.ppe.ntd? 



Type 
PRINT 



'SALUTATIONS ' 



ENTER 



PRINT "MY NAME IS ijouA name. " | ENTER 



Now let's try something different. This time we shall put a " line 
number" in front of each statement. First type NEW [ENTERl 

Then type : 



100 PRINT "HELLO " , ENTER | 

110 PRINT "SALUTATIONS " j ENTER j 

120 GOTO 100 1 ENTERl 

That isn't progress, or is it? Well, nothing happened. Did it? Yes, it 
did, but it happened inside the computer, where we can't see it, not on 
the screen. 



Type 



LIST , ENTER 



The. computejt i>kouL& tlit the. thJize. 
i>tRteme,nti> you. typtd in. Chuck thzm 
to be. i,vJte. tkzy weM pftopextij e.nte.n.e.d 
with a 6pa.ce, a^tex e.ach numbeA, 
and " " In the. pfwpe.fi places. 



Next type 

RUN ENTER 



After a bit , depres s the | BREAK | key to get control again . 



Depress th e [ CLEAR I button. 

Type LIST fEMER I 

and the computer should respond by displaying: 

100 PRINT "HELLO" 

110 PRINT "SALUTATIONS " 

120 GOTO 100 

READY 



It is perfectly reasonable to change these instructions by retyping them. 



Type 

100 PRINT "HELLO youfi name."; [eNTER| Mote, the " " and the ;. 

110 |ENTER| ThU en.ai.ei, the. InitAuctlon In 110 „ 

oi you Mill i>ee when you type. LIST | ENTER | . 
Now type 

LIST | ENTER] 

The screen should show 

100 PRINT "HELLO youJt name"; 

120 GOTO 100 

Note that instruction 100 was changed and instruction 110 was deleted, 
but instruction 120 is unchanged. 

Now type 



RUN ENTER 



Let us write another program. Begin by depressing [BREAK | to get the 
conputer's attention. Then type: 



NEW ENTER 



100 X = 1980 | ENTER! 
110 Y = 365 I ENTER! 
120 Z = X*Y | ENTER] 



130 PRINT X; Y, ZJETOER] 
140 G OTO 100 I ENTER! 
RUN IENTER1 

The above program sets X=1980, then sets Y=365, then forms the product of 
the values of X and Y and stores it in a location called Z. Instruction 
130 then prints out the values of the numbers stored in locations X, Y, 
and Z. Instruction 140 then sends the computer back to instruction 100, 
which repeats the entire process. 

Depress the [BREAK | key to stop the computer. 



SUMMARY OF INTRODUCTION 

Let's see what you have learned thus far... 
To get the computer's attention, depress 



BREAK 



key. 



Once you get the conputer's attention, which it indicates by 
displaying 




on the CRT (TV screen), you can work arithmetic problems involving +, -, 
*, / (add, subtract, multiply, divide) by typing PRINT followed by the 
arithmetic problem. 

When the problem is displayed the way you wish it , depress ! ENTER I 
to send it t o the com puter. Remember, nothing goes to the computer until 



you depress [ ENTER 



Oh, yes. If you make an error in typing, just depress the | •«— | key 
to bac kspace and erase. You can do it anytime before you depress the 
i ENTER I key. 



To clear the screen, depress the I CLEAR I key , followed by 1" ENTER i if 
the >_ symbol is absent, or type CIS | ENTER | . 



You need to be careful about confusing zero, (3, and the letter oh, 0. 
Also, 1 and L are distinct. 

You have written a set of instructions to the computer, and the computer 
has followed these instructions. 

Now that you no longer fear the TRS-80, let's begin our lessons. 




So you don't know anything about computers or computing. Well, this 
won't make you an expert, taut let's see what we can do. 

Someone has connected and assembled the TRS-80 and turned it on for 
you. The screen says something on it. I don't know what because I don't 
know what was done last. 

If your TRS-80 has just been turned on, the screen may display 



^ 



MEMORY SIZE? 



The TRS-80 can i,et ailde memoxy 
faofi pfiogH.ami> tMnitten tn language* 
otheJt than BASIC, but we i>kalt not 
do &o. 



If so, just depress the white 1 ENTER] key. The screen will then display 
an additional message, which should end with 



READY 



The word READY is your clue that the computer is ready to accept 
instructions from you. 



To clear up everything. . . 



Depress the IBREAKI key (upper right). 
The computer will add 

/ready 




below whatever was on the screen. Now you have its attention. The >- 
symbol below READY means the TRS-80 is waiting for you to type in an 
instruction. 

Type NEW and depress the white IENTER1 key. 

Everything on the screen disappears — also any program inside disap- 
pears too — the slate is wiped clean for you, and the computer displays 




MOTE: Nothing goeJ> {nam tht icAetn 
to th t compu ttn. until you dtp?u>J>6 
tht I ENTER I kty. 



Now type 

210 X = 1 
The screen should now show 



ENTER 



READY 
>S10 X=l 



1(5 you mi&typt, ju&t u&z tht 
button to backs pace, and tfiai>t--on 
dtpntM, | BREAK 1 and &tafvt tht tn- 
tOtt Line- oven.. 



The symbol >_ indicates the TRS-80 is ready to accept another instruction, 
so type 

220 PRINT X; |ENTER| Von' t ionqtt tht ; 

Tne screen now shows 



/ready 

/ >51(J X-l 

I > SEP PRINT X; 



Or 



Continuing, type 

23?) X = X + 1 
24(3 QOTO 2253 



ENTER I 



ENTER 



Hotz that GOTO li> one mnd. 



To make sure the program you typed is really there, type 

LIST lENTERl 
Your program will then be listed below whatever is already on the screen. 



READY 
>21p) X-l 
>eap PRINT X; 
>23j3 X=X+1 
>240 GOTO ESP 
>LIST 

sip x=i 

220 PRINT X; 
230 X=X+1 
240 GOTO 220 




Note the absence of the > symbols on the LISTed program, indicating the 
computer typed it to you . 

Now yo u are r eady to run your first numerical program. 



Type RUN ENTER and watch what happens. 



You probably have a Level II BASIC, but if not, 
column instead of the left-hand column below. 



read the right-hand 



Level II BASIC 



Level I BASIC 



If you hold down 1 SHIFT I and 
depress L@], the program will halt 
unti l you d epress another key (with- 
out I SHIFT 1 ) . Try it a few times 
and see. 



± 



key on 
the 



If you depress the. 
left edge of the keyboard, 
program will halt whatever it is 
doin g , as long as you keep the 
1 f [ key depressed, but will con- 
tinue whenever you let it up. Try 
it a few times and see. 



In either case, if you wish an extended halt, depress the I BREAK I key. 
(Bo so now.) Not only does the TRS-80 stop, but it eve n tells you which 



BREAK I 



If you want 



instruction it was executing when you depressed 

the program to continue, simply type: CONT ["ENTER 1 and it will continue. 

Note that in Level I BASIC, if the program is typing a number, say 
425 or 438, and runs out of line, it prints part of the number at the end 
of one line and the rest of the number at the beginning of the next line. 

The output is difficult to read, but the data is printed quickly and the 
screen displays a lot of data at once. 
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Level II BASIC is a bit more sophisticated and will leave the end of 
the line blank, rather than break a number, but it still changes the 
column spacing as the number of digits in the number changes in order to 
get as much output on a line as is convenient. The ; at the end of 

220 PRINT X; 
is what controls the "packed spacing" of this output. 



Depress |BREAK | 



Type RUN ENTER 



to see what is meant. 
Let's look at our program again. 
Depress the [ BREAK | key and the | CLEAR | key. 
Then type LIST |ENTER| 
The computer should respond. 



>LIST 
210 X=l 
220 PRINT X ; 
230 X=X+1 
240 GOTO 220 
READY 



r\ 



NOW I MUST ACO 1 TO 
WHATEVER NUMBER IS IN 
STORAGE LOCATION X, 

and store the new 
Bigger number back 

IN X LOCATION 




Instruction 230 X=X+1 looks odd. 
If it were a mathematical equation, it 
would have no solution. It is not a 
mathematical equation; it is an in- 
struction to a computer. 

X=X+1 This instructs the computer to "Take the number in the storage 
location called X, add 1 to it, store the new result back into 
the storage location called X." 

X=X+1 could be more reasonably written as X+-X+1. However, it is almost 
universal computer practice to use = rather than •*- , probably 
because old fashioned typewriter keyboards contain = not •*- . 

Let's change instruction 220 PRINT X; by changing the semicolon to a 
comma. To do this, we simply type 



220 PRINT X, IENTERI 

If you now type 

LIST | ENTER! 

the new program will be displayed belo w the LI ST instruction. Please do 
so before continuing. Then type RUN I ENTER] . 
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Note that now our program prints out its values in four nice columns. 

Isn't it impressive? 

You may wonder what would happen if you did not have either the eorrma or 

the semicolon after PRINT X. If so, experiment a bit and find out. 



BREAK to get the conputer's attention. 



Depress 

Type LIST |ENTER| 

Type 220 PRINT X JEMER| 

Type LIST | ENTER 



Type 
Depress 



LIST 
RUN 



ENTER 



BREAK 



to get the computer's attention. 

Do some other experiments on your own. For example, change 23(3 X=X+1 to 
230 X=X+.5 or 230 X=X+2 and see what happens when you type 



RUN lENTERl . 

Remember, about the only thing you 
might do that would hurt the TRS-80 
would be to drop part of it or spill 
a beverage over it. Otherwise, it is 
pretty rugged, as long as you don't 
open the case. 



KEEP YOUR COKES 
AWAY! SPILLS ARE 
HAZARDOUS TO 
MY HEALTH. 




A Word of Warning: 

It is always well to check t hat you have typed what you think you 
have typed before depressing the lENTERl key... In most cases it is 
easy to correct an error by simply retyping that statement number and 
instruction, but i f you s hould happen to have typed LLIST lENTERl 
instead of LIST lENTERl you may have a problem you will need to call 
your instructor to fix. LLIST is also a perfectly valid instruction- 
it tells the TRS-80 to list your program on the attached line printer — 
but if your TRS-80 has no line printer attached (and turned on), the 
computer will not accept an other i nstruction until it executes the im- 
possible instruction LLIST [ENTER| . To all appearances your computer 
will "lock-up." Your instructor can get you out of this difficulty 
without having to turn off the computer. If you are without an instruc- 
tor, open the small door on the back left top side of the keyboard, and 
press the button inside. 
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If your TRS-80 has "keyboard bounce" (printing multiple letters on one 
keystroke), it means the contacts are dirty and no one inserted the "key- 
board fix" program when the TRS-80 was turned on. Ask for help if you 
have excessive troubles with keyboard bounce. Each TRS-80 has a keyboard- 
fix tape and manual packed with it. If you do not have an instructor, 
consult the manual that accompanies the keyboard fix tape. 



HAVE FUN!!! 



us 

litmus 

mmm 



waassaass-a 



® ® ® nnnmn m%n n 



SUMMARY 0F_ LESSON 1_ 

Let 's see what you have learned thus far. . . 
Depress [BREAK ] key to get computer's attention if it is busy. 
Type NEW | ENTER 



to clear out everything and start over. 



Number each instruction and put a space between the number and its in- 
struction. 



(1 6 you yuJL to numbex an ■cnitnuction tht TRS-80 mill poxionm that In- 
itAuctlon flight tk nn, but not 6 tone. It Ion Icvtzn. u&d. Tnu typina 
PRINT X, V, T, L I ENTER I . ) * *' y 



You can erase errors by using the 
not depressed | ENTER | . 



key as a "backspace" if you have 



If you have depressed | ENTER | it's easy to change instructions, merely 
retype the number and new instruction. You may insert additional in- 
structions between those already in use by using statement numbers 
that fall between those already used. 



Holding down [ SHIFT [ while you depress 



erases the entire line. 
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The symbol >- indicates the conputer is ready to receive typed in- 
structions from you. 



If the >- symbol is not there, depress i ENTER | or I BREAK | | ENTER | . 

In the PRINT instruction, the use of a semicolon ; between or after 
variables will give a "packed format", while the use of a comma, 
produces four columns. No symbol gives one output per line (wasteful). 



You may halt the output (temporarily) by depressing the 



Jl 



if you 



have a Level I. If you have a Level II, hold do wn [SHIFT | and depress 



Depress any key except | SHIFT | or I BREAK I to continue . 



LIST IeNTERI produces a listing of the program currently in storage. 

Among your output you may discover some strange- looking numbers, such as 
1.23456E+08 or 2 . 22222E-05 . The computer displays only six significant 
decimal digits, and shows the magnitude by appending an E+nn or E-nn to 
indicate the power of ten by which the preceding fraction should be 
multiplied. 

Thus 

1.23456E408 = 1.23456*10" t # 8 = 123456000. ^ But *-<>.cjxU, tkU may be In 

ejixafi by ±5 In the, Atvzntk 
plant, thatli, by ±500.) 



2.22222E-05 = 2.22222*10 -5 = .0000222222 (: 
3.45678E+11 = 345678000000 
-4.68024E-07 = -.000000468024 

This convenient notation, a cousin of the so-called "scientific notation," 
is used on most modem computing systems, including many hand-held cal- 
culators . 
PRINT X,Y;Z;T will print values of X Y Z T , spaced as shown. 

|CLEAR| or [c] [L]UD |ENTER[ will clear the screen. 

rsHIFTl I— »-| will produce double size letters on the screen (see 

problem 13 ). 

Usually ICTEAR] is depressed just before using | SHIFT j | —^- 1 . 
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PRACTICE SESSION I 

Problems 1 to 6 make use of the program discussed in the text. Start by 
typing it in, LISTing the program and RUNning it to check that it is 
functioning properly before you start the problem set. 



depress | BREAK [ key, then type: 



NEW ENTER 



21(3 X = 1 I ENTER! 

220 PRINT X; |ENTER| 

230 X = X + 1 IENTER1 

240 GOTO 220 IENTERI 



LIST lENTER j 
RUN IeNTER 




Ji 

Mm 



Now you are ready to start the practice set. 

1. Type in the program (using 220 PRINT X;) first given in this lesson. 



Run it a few times with 230 
in turn. 



X=X+1 replaced by each of the following 



230 X=X+.5 
or 230 X=X+ 5 
or 230 X=X+ 2 
or 230 X=X+.l 


IenterI 

; ENTER| 
;ENTERl 
IENTER; 


Type LIST 


ENTERJ 


RUN 


ENTER | 



each time you change instruction 230. Note any peculiar behavior and 
think about it a bit. Discuss it with your instructor or a fellow 
computer buff. 
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2. In the program above, replace 210 X=l with 210 X=7 and rerun 
the program. 

3. Forecast the output of the program. 

21(3 X=l 

220 PRINT X, 

230 X=X+X 

240 GOTO 220 

Try it out and test your forecast. What about column spacing? 
The error message ?0V ERROR IN 230 indicates that the arithmetic 
operation in instruction 230 produced a result too large for the 
computer to handle — namely larger than 10 38 — which is a number 
larger than the total number of atoms in the solar system. 

4. What output would you expect the program of problem 3 to produce if 
240 GOTO 220 were replaced with 240 GOTO 210? 

Try it out and verify your forecast, or explain why the computer did 
not do as you forecast. 

What would happen if you used 240 GOTO 230? 
Be sure you understand these points. 



5. Let's try another program. Depress |BREAK[ if needed. Then type 
NEW 

If you know that most computing systems use * to indicate multipli- 
cation, you should be able to forecast what the following program 
will produce. 

210 X=2 

220 PRINT X, 

230 X=X*X 

240 GOTO 220 

Make a forecast. Then run the program. If the results are unexpect- 
ed, reread problem 3. 

6. Replace instruction 220 PRINT X, in problem 5 with 220 PRINT X, X+5 
and see what happens. Before running the program, try to forecast 
the output of the first 5 lines. 

7. Try some experiments on your own. Don't be afraid — you are not apt 
to harm the TRS-80 computer providing you don't eat or drink in the 
computer room an d don't move or bump it while it is connected. Be 
sure to depress |BREAK| and type NEW [ENTER] before you start a new 
program. 

The new InAtAuctlonA u&ed In pn.oble.mt> 8,9,10 will be, di6c.in.6zd 
In detail latex. How all you need to know aj> that 
IF RND(0)<.05 THEN CLS ii, pn.onou.nced "1{ 'random number' 
.16 tt66 than .05 then cteax the AcJieen." 
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8. Let' s try an other program. Depress lEREAKI if needed. Then type 
NEW I ENTER I . 



Level II BASIC 



level I BASIC 



10 PRINT @ RND(1000), "HI typeyouA name" ; |ENTER| , 

15 IF RND(0)<.05 THEN CLS [ENTER | f« ^ t baotp *„ 

* goto ,/ eim — jESfcffS*"" 

RUN [ENTERl 13 |T| and ^t 

wu££ behave 

9. Experiment a bit by changing instruction 15 IF RND(0) < .05 THEN 
CLS to one of those suggested below. 

15 IF RND(0) <.01 THEN CLS 



or 15 IF RND(0) <.l THEN CLS tVon' t ioKgeX to depsieii [ENTERl 

or 15 IF RND(0) <.5 THEN CLS mcn time you change, an In- 

or 15 CLS Atmctlon. 1 

10. Try combining the program in the text with that of problem 8, with 
instruction 20 omitted, giving: 

10 PRINT @ RND(1000), "HI type, youJt name."; 

15 IF RND(0) < .05 THEN CLS |T{/pe 2 [BFfERl to delete ImtX. 20.) 

210 X=l Jl ' 

220 PRINT X; 

230 X=X+1 

240 GOTO 220 

11. Change the instruction 240 GOTO 220 to 240 GOTO 10 in problem 
10. Forecast the output before you RUN the program. If your fore- 
cast was not valid, try to find a why before reading problem 12. 

12. Delete instruction 210 X=l by typing 210 | ENTERl When) >_ 



appears, insert 5 X=l. Type LIST |ENTER| to check your new pro- 
gram. Before you RUN the program, try to forecast the result. Why 
is it different than that of problem 11 which used the same in- 
structions, but placed differently in the program? 

13. If you have a Level II BASIC, please try the following sometime 

when you have a program that does not contain CLS in the computer. 



Depress [BREAK! if needed. 

Depress 1CLEARI 

Hold down 1SHIFTI an d depress 

Type LIST lENTERl 

Notice that your program is listed in characters twice as large as 

before. 

Now type RUN lENTERl 

The output is also double size. This is handy if you are usi ng the 

computer with a class or group. Double size will last until f CLEAR | 
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key is depressed or until you exec ute a CLS instruc tion . To set the 

regular size back, depress 1 BREAK 1 and then I CLEAR I 

If you fail to clear the screen before you depress [ SHIFT! I — ■»• I , 
your double-size letters and numbers obliterate half of the material 
on the screen to make room for the larger letters, but any material 
printed after that will be complete. 



14. 



15. 



Have fun. Make your own variations. 

Forecast the result before you run each program. 

Try NEW 1 ENTER 1 



210 X = 5 1 ENTER 



220 PRINT X; X+5; X+10; X+15; 
230 X = X+20 



ENTER 



ENTER 



240 OOTO 220 1 ENTER 



Now investigate what happens if you omit the final ; in line 220. 
What happens if you change the semicolons to commas in line 220 
(with and without the final comma)? 

Can you write a program that will start with X = 1 and count by 
threes , with exactly four numbers on each line? There are several 
correct ways to write such a program, so when you are finished, 
compare your program with that of a friend who also has a computer. 



16. Try the following program. 
NEW ENTER 



100 X = 2 ENTER 



110 PRINT X, X*X, X*X*X, X*X*X*X 
120 X 



ENTER 



X+l 



ENTER 



130 GOTO 110 1 ENTER 



RON ENTER 



17. The following floating-point numbers are expressed in regular decimal 
notation with the possible error indicated: 



FLOATING-POINT 

NUMBER 
1 . 23456E+06 
2.13145E-03 

Do the same for: 

9.87654E+07 

-1 . 23456E+08 

4.56789E-04 



DECIMAL POSSIBLE 

VALUE ERROR 
1234560 + 10 
.00213145+. 000000005 



-2.34567E-07 
5.67898E+15 
4.32198E+11 




In our first lesson, we learned to make the computer 

count, using various step sizes 

to print in different formats, depending upon whether we used 

PRINT X 
or PRINT X; 
or PRINT X, 



We als o lea rned th e essential handling of the conputer using I BREAK 
lENTERI and 1 «#° 
and to type NEW 
accept new ones. 



J "back space" keys 

ENTER I to clear out old program and data, ready to 



We rewrite the counting program using a slightly different philosophy 
below (for reasons you will soon appreciate.) We shall use B = begin- 
ning value, S = stepsize by which X will be increased, and F = final 
value, after which we wish the computer to stop. 



NEW 

2 

4 

6 

100 


lENTERI 
B=l lENTERI 
S=l lENTERI 
F=100 lENTERI 
X = B [ENTERl 


110 
120 


PRINT X; lENTERI 
X = X+S lENTERI 


130 


IF X < F THEN 110 lENTERI 



Instruction 130 examines the current value of X and if X is less than 
F, sends the program back to instruction 110. If you feel at all in- 
secure about this program, put it on the computer and RUN it before 
continuing. 
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The real advantage of this technique is that we can eas ily cha nge 
the step size by changing instruction 4 to 4 S = .5 |ENTER[ 

Indeed, we may rewrite the program slightly to input values of B, 
S, and F from the keyboard instead of assigning them in instructions 2, 
4 and 6. 

We do so next, using the instruction INPUT B,S,F . When the computer 
executes this instruction it will display a question mark on the TV 
screen and wait for you to type in three values , separated by commas . 
The values will be assigned, in the order typed, to variables B,S, and F. 
These letters were used as they are the initial letters of the phrases 
Beginning value, Step size, and Final value. 

The revised program is: 



NEW lENTERl 

90 INPU T B,S,F lENTERl 

10P X=B lENTERl 

lip PRINT X; lENTERl 

120 X=X+S lENTERl 

130 IF X < F THEN 110 lENTERl 

140 PRINT lENTERl . 

150 PRINT "END OF TABLE W ITH B,S,F=" ; B;S;F | ENTER | 

160 PRINT : PRINT lENTERl 

170 GOTO 9 lENTERl 

RUN lENTERl 

Again, note the use of instruction 

130 IF X<F THEN 110. 

As long as X is less than F, the program loops back to 110 PRINT X; 
but when X^F, the program continues with statements 140, 150, 160, and 
170 which upspaces the printed matter, prints an END OF TABLE message, 
and then sends the computer back to 90 for a new set of input values. 

Instruction 150 PRINT "END OF TABLE WITH B,S,F =";B;S;F is particularly 
interesting. It combines the printing of a message in quotes, " " 
with the printing of the values of the variables B,S and F, which must 
not be included within the quotes . 

Try this pr ogram on your TRS-80 before continuing. Begin by t yping 

RUN lENTERl . When a ? appears on the screen, type 1, 1, 100 [ENTER]. 
Watch the output. When a ? appears at the bottom of the screen, type 
2, .5, 10 lENTERl or some B, S, F values of your own choice. 

Let's write a program to create a table of values of 
X X 2 X 3 X 4 
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When our program is run, it will accept values B, S, F from the keyboard. 
It will set X=B and print out values of X, X 2 , X 3 , X 4 for that value of X. 
Tnen the instruction X=X+S will add S to the current value of X and 
print another set of X, IT, XT, X for the new value before adding 
another S to the current X. 

This loop will continue until X exceeds the value of F (X>F) in which 
case the program will PRINT a blank line (160) followed by (17(3) an 
END OF TABLE message. 

On e way t o do it is: 
NEW I ENTERl 



100 PRINT "PLEAS E TYPE BEGINNING VALUE, STEP SIZE, FINAL VALUE ": |ENTERI 

105 INPU T B,S,F IBNTERi 

110 X=B lENTERl 

120 Y=X*X [ENTERl 

130 PRINT X, Y, X *Y, Y*Y lENTERl 

140 X=X+S lENTERl 



150 IF X < = F TH EN 120 [ENTER l 

160 PRINT lENTERl 

170 PRINT "END OF TABLE" lENTERl 



RUN lENTERl 
Let us examine the program in detail. 

The instruction 

105 INPUT B,S,F 

causes the computer to type a ? and wait for the user t o type 
three values separated by commas and depress the | ENTER] key. 

Instructions 100 and 105 can be combined into a single statement, but we 
shall not do so yet. 

Instructions 

110 X=B 

120 Y=X*X 

130 PRINT X, Y, X*Y, Y*Y 

do just what you learned to expect in lesson one. Note that by 
using corrmas between output, we obtain four neat columns. Also note 
that the use of Y=X*X saves half of the multiplications that would 
be required by „ . " 

PRINT X, X*X, X*X*X, X*X*X*X since Y*X = X and Y*Y = X . 

The instruction 

140 X=X+S 

merely increases the current value of X by the amount in S. 



21 



Next we use the branch instruction 

150 IF X<=F THEN 120 

This instruction conpares the values stored in X and in F. If the 
value in X is less than or equal to (<=) the value in F, the pro- 
gram loops back to instruction 120. Otherwise the instruction which 
follows instruction 150 (namely 160 PRINT) is executed next. 

160 PRINT 

170 PRINT "END OF TABLE" 

Instruction 160 merely prints a blank line, while instruction 170 
prints the message indica ted in quot es. If after entering the pro- 
gram, you depress |CLEAR| type LIST 1ENTERI , the computer display 
will show 



fi 


LIST 






100 


PRINT "TYPE BEGINNING VALUE, 


STEP SIZE, 


FINAL VALUE"; 


105 


INPUT B,S,F 






110 


X=B 






120 


Y=X*X 






130 


PRINT X, Y, X*Y, Y*Y 






140 


X=X+S 






150 


IF X<= F THEN 120 






160 


PRINT 






170 


PRINT "END OF TABLE" 







READY 



If you now type RUN |ENTER1 , the computer will respond 



> RUN 

TYPE BEGINNING VALUE, STEP SIZE, FINAL VALUE? 



If you respond with 1,1,5 
below results: 



ENTER 



the table of X, 



X 2 , 



X , X gives the 



/£ 1 


1 


1 


2 4 


8 


16 


3 9 


27 


81 


4 16 


64 


256 


5 25 


125 


625 


END OF TABLE 




READY 






^- 







J 

If you type RUN lENTERl again, the computer will again respond with 
TYPE BEGINNING VALUE, STEP SIZE, FINAL VALUE? 

and if you type 1, .5,8 1ENTERI , the screen will fill up and "scroll out 
the top" displaying 
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f- ' 


1 


1 


-— ^ 


1.5 


2.25 


3.375 


5.0625 


2 


4 


8 


16 


2.5 


6.25 


15.625 


39.0625 


3 


9 


27 


81 


3.5 


12.25 


42.875 


150.063 


4 


16 


64 


256 


4.5 


20.25 


91 . 125 


410.063 


5 


25 


125 


625 


5.5 


30.25 


166.375 


915.063 


6 


36 


216 


1296 


6.5 


42.25 


274.625 


1785.06 


7 


49 


343 


2401 


7.5 


56.25 


421.875 


3164.06 


8 


64 


OXzj 


4096 


END OF TABLE 






READY 








v?-. 










So, you see our computer works with fraction values as well as with 
whole numbers. 

Note that (2.5) 4 = 39.0625 which is correct, while for (3.5) the 
computer prints 150.063 instead of the correct value 150.0625. This is 
because, although the computer actually contains more than six digits of 
accuracy internally, it only displays six digits of accuracy. This will 
prove to be both a blessing and a curse, as we shall see. 

If you are using a TRS-80 with Level II BASIC, it is quite feasible 
to obtain additional accuracy on it by declaring X and Y as DOUBLE PRE- 
CISION variables, but to do so now would only distract our learning pro- 
cedure. Problems in "limited precision" and "rounding" also occur m 
double precision arithmetic— although not as frequently. 

Let us type another set of valu es into our table. First, of course, 

' ™ When the computer prompts you, 



iepres 


3S ICLEAR1 


and type RUN 


IENTERI. 


;ype j 


3.. 1.1 IENTERI 


You 


should obtai 


















.1 


.01 




1E-03 




1 E-04 


.2 


.04 




8E-03 




1.6E-03 


.3 


.09 




.027 




8.1E-03 


.4 


.16 




.064 




.0256 


.5 


.25 




.125 




.0625 


6 


.36 




.216 




.1296 


.7 


.49 




.343 




.2401 


.8 


.64 




.512 




.4096 


.9 


.81 




.729 




.6561 
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Let's modify our program slightly by adding another instruction, 
106 CLS. 
To do so 



Depress I BREAK I and 1ENTERI (if necessary) to 

[READY 
obtain >_ on your screen and then type 



100 CLS IENTERI 



Next, depress ICT.EARI and type LIST IENTERI to view the current program, 
which should start 

100 PRINT "TYPE BEGINNING VALUE, STEP SIZE, FINAL VALUE"; 

105 INPUT B,S,F 

106 CLS 
110 X=B 



with the new instruction 106 tucked properly between instruction 105 and 

110. 

Isn't that neat? 

The instruction CLS is called clear screen . It clears the screen 
for you whenever it is executed. Try several B, S, F values of your own 
choice. Note that if you use B, S, F = 0, .1, 5, the table scrolls off 
the top before you can read it. You can stop this at any time you wish. 



In Level II BASIC 



Hold down I SHIFT | and depress 

to stop the program. To continue 

the program, depress @ without 



shift (or most any other key). 



In Level I BASIC 






key 



Depress and hold down the 

To continue the program, release 

the 



1 



key. 



If you prefer , depress | BREAK | to stop the program. Type CONT | ENTER 
to continue. 
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It would be nice to have headings at the top of the column of X, 
& , a , X we are printing. It is not hard. We add: 



108 PRINT "X SQUARE CUBE 4-TH POWER" lENTERl 

So now our program reads: 

100 PRINT "TYPE BEGINNING VALUE, STEP SIZE, FINAL VALUE"; 

105 INPUT B,S,F 

106 CLS 

108 PRINT "X SQUARE CUBE 4-TH POWER" 

110 X = B 

120 Y = X*X 

130 PRINT X, Y, X*Y, Y*Y 

140 X = X + S 

150 IF X<=F THEN 120 

160 PRINT 

170 PRINT" END OF TABLE" 

Type LIST lENTERl 

to list your program and see if it agrees. 



Then type RUN lENTERl 

and observe the output when you enter B, S, F = 2, 1, 9 

It should be 

X SQUARE CUBE 4-TH POWER 

? 2, 1, 9 

2 4 8 16 

3 9 27 81 

7 49 343 2401 

8 64 512 4096 

9 81 729 6561 

If your headings do not seem to be lining up properly, change the spacing 
inside the quotation marks in the instruction 

108 PRINT "X SQUARE CUBE 4-TH POWER" 

until it pleases you. 

Note that the instruction 

150 IF X <= F THEN 120 

makes a decision by conparing the values of X and F. (IF X <= F THEN 
120) The IF instruction produces a branching in the path of the in- 
structions, and takes the branch path (loop) instead of continuing 
on if the given condition is satisfied. This is indeed a powerful 
idea. 
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Try it again with B, S, F = 2, .5, 7. 

As an experiment to test your understanding, let us insert another in- 
struction . 

_. _ (Note: The 108 \ ENTER] deletes instruction 108, which 

..__ i— ..— _-j would have printed erroneous headings as previously 
r I _J entered. ) 

You should forecast the output of the new program and insert new 
headings in instruction 108 before running the program. 

100 PRINT "TYPE BEGINNING VALUE, STEP SIZE, FINAL VALUE"; 

105 INPUT B,S,F 

106 CLS 

108 {InA&fit new heading* hexe.) 

110 X = B 

120 Y = X*X 

125 Y = Y*Y 

130 PRINT X,Y,X*Y,Y*Y 

140 X = X + S 

150 IF X< = F THEN 120 

160 PRINT 

170 PRINT" END OF TABLE" 

The actual output for B,S,F = 2, .5, 10 is: 

2 16 32 256 
2.5 39.0625 97.6563 1525.88 

3 81 243 6561 
3.5 150.062 525.219 22518.7 

4 256 1024 65536 



As you experiment a bit, you will find the computer occasionally 
switching to an odd-looking number format, perhaps 

1.23456E+08 

This is called the "exponential" or "scientific" notation. The E+08 
means to multiply 1.23456 by 10° (i.e., move the decimal point 8 places 
to the right ) . 

Similarly 1.23456E-04 would mean to multiply by 10 -4 (i.e., move decimal 
point 4 places to the left). 

4.21653E+12 = 4216530000000 (with a possible error of +5 in the 7th place) 

7.65432E-08 =.0000000765432 (with a possible error of +5 in the 4th place) 
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If you axe familiar with trigonometry and have Level II BASIC, you 
may wish to substitute. 

1(218 PRINT "X", "SIN(X)", "COS(X)", "EXP(X)" 

13(3 PRINT X, SIN(X) , COS(X) , EXP(X) 

There. is no need to retype the entire program; just get 



READY 



and type in 



108 PRINT "X", "SIN(X)", "COS(X)'\ "EX P(X)" 1 ENTER | 
130 PRINT X, SIN(X) , COS(X) , EXP(X) lENTERl 

Run the revised program. 

Note: we obtained the spacing desired in statement 108 by enclosing 
each column heading in quotation marks and separating the columns with 
commas, just as we did in statement 130 which prints the values. This is 
easier than using just one pair of quotation marks. 
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SUMMARY OF LESSON 2 



What have you learned in Lesson 2? 
Our new program extended your knowledge of the PRINT instruction to in- 
clude the possibility of printing several different values from the same 
instruction, and of doing computation inside of the PRINT instruction 
itself . 

You really do have a lot of computing power at your fingertips now. 
KEYBOARD COMMANDS 



I ENTER 1 

IclearI 



BREAK 



SHIFT 



Enter line from screen to computer. 

Clear the screen 

TRS-80, stop what yo u are doing and pay attention. Type 
CONT pENTlRl to continue. 

Backspace and erase. 

Erase entire line. 



SHIFT @ 



(for Level I) 
(for Level II) 



(Release the 



STOP! 



f feet/, to continue,.} 



[ VtpneAi , any key, without u&lng 
I. SHIFT 1 to continue.. ) 



NEW ENTER 



RUN ENTER 



LIST ENTER 



Erase current program and data, clear screen and 
pay attention. 

Run the program now in memory. 

List the program now in memory. 



SHIFT 



to get double-sized output • 



CLEAR to return to single size 



BASIC INSTRUCTIONS DISCUSSED THUS FAR 



X = B 

Y = A*X*X + 4.6*X - 3.172 



Computer value, on /bight and htofieh 
It in the, location named at le.lt 
Of! eqaati, i>lgn. 



PRINT X,Y;Z; T,X*Y 1 

PRINT N; "VALUES OF X TOTAL"; Y 



Pfiinti value* o& va/biableA on 
expKehhlonh Indicated, hldo pnlnti 
, any mehhage given Inilde o{ quota- 
tion maxkt>. Semicolon li, {on, 
naAAouJ spacing, comma faoK wide 
spacing. 
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INPUT "TYPE X VALUE"; X 



TypeJs message. In quotes, { s ollowe.d 
by a question monk and thtn acce.pti> 
valueJ> fifiom ktyboan.d and &ton.eJ> 
them -In location Indicated. 



IF X < = F THEN 120 



CompaneA valuer o{ vanlableA X and 
F. I j) X value. li> lti>i> than on. 
equal, to F value., then lvUitn.uc.tlon 
11$ U> executed next. OtkenwUe, 
the. Instruction following the. IF 
InitAuction lb executed next. 



+ add 

subtract 
* multiply 
j divide 
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PRACTICE SESSION 2 

As in Lesson 1, you should begin by typing in, listing, checking and 
running the main program under discussion in this Lesson, namely: 

100 PRINT "TYPE BEGINNING VALUE, STEP SIZE, FINAL VALUE"; 

105 INPUT B,S,F 

106 CLS 

108 PRINT " X SQUARE CUBE 4-TH POWER" 

110 X = B 

120 Y = X*X 

130 PRINT X,Y, X*Y, Y*Y 

140 X = X + S 

150 IF X <= F THEN 120 

160 PRINT 

170 PRINT " END OF TABLE" 

la. Run the textbook program given above, 
lb. Change instruction 140 X=X+S 

to 140 X=X*S 
and run the program. (Do you need to also change instruction 108?) 

2. What happens if the program in the text is given B,S,F as 0, 2, 7 
so that the step misses F = 7? Does it stop at 6 or at 8? 

3. a. Write a program of your own to create a table of values of 

X X+3 (X+3) 2 

for X = 1, 2, 3, ... , 10 

b. Modify your program so it will accept input values B,S,F and 
print out 9 

X ,X+3 , (X+3-r 

for X values from B to F in steps of S. 

4. Write some programs of your own choice using the instructions we have 
discussed . 

5. Write a program to INPUT the radius R, of a sphere, and print 

out on one line the radius, volume and surface area of the sphere 

using 

2 
Volume = 4 „3 Surface Area = 4irR 



3*R 



[WheAz ir = 3.74759...} 
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6. Modify your program of problem 5 to INPUT values: B, S, F 
(for Beginning value, Step size and Final value) and PRINT a 
table of values of the radius, volume and surface area of spheres 
of radius B, B+S, B+2S, B+3S,..,,F. 

7. Write a program to convert Fahrenheit temperature to Celsius. 

C = | (F - 32) 

8. Write a program to convert temperature in degrees Celsius to 
Fahrenheit temperature. 

F = | (C) + 32 

9. Rewrite instruction 108 in the program that produces powers of 
numbers, so that the headings are valid after instruction 125 Y = Y*Y 
is also inserted. Check it by using B, S, F = 2, 1, 4 

10. If you have LEVEL II BASIC, try adding the following statement to the 

2 3 4 
program that makes tables of x, x , x , x 

5 DEFDBL X, Y 
and RUN the program with B, S, F = 2, .5, 6 

4 
Note that we no longer have problems with 4.5 = 410.0625 being 

rounded to 410.063 since we are no longer restricted to 6 decimal 
digits in our arithmetic. The DEFDBL X,Y instruction permits 
the TRS-80 to compute with and display up to sixteen decimal digits 
of accuracy when needed. We shall discuss this further when the 
additional accuracy is really needed. (What happens to the four 
columns of output?) 

11. Write a program to create tables of values of 

3 6 9 

X, X , X , X 

with proper headings for various values of B, S, F typed in by the 
user. 

2 3 4 

12. What output occurs in the program to produce a table of x, x , x , x 

if some or all of B, S, F are negative? Try B, S, F = 2, -.5, -3 and 
B, S, F = -2, 1, 5 and B, S, F = -1, -1, -6. 

13. What happens when some of B, S, F are negative in the table of powers 
program that includes 125 Y = Y*Y ? 
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14a. If your BASIC includes a square root function SQR( ) try 
using 

120 Y = SQR(X) 

130 PRINT X,Y,SQR(Y),SQR(SQR(Y)) 
in the text program. 

b. If you don't have a SQR( ) function, try 
120 Y = X*X*X 
130 PRINT X,Y,X*Y,Y*Y 

Be sure to alter instruction 108 to print a correct heading for the 
current table columns in either (a) or (b). 

15. What would happen to the program if the instruction that prints the 
heading were changed to 

123 PRINT'X SQUARE CUBE 4-TH POWER" 

Try it out and see. After you understand what happened, and why, 
delete instruction 123 by typing 

123 lE NTERl 

Notice: If mathematics frightens you, you can laugh at your fears now. 
With a computer to do the arithmetic, all you need to do is 
type in the formula and the computer will do the arithmetic for 
you. It really is easy to do problems that used to stump you. 
Try it ; you'll like it! 

16. If you like mathematics, you may wish to start by proving that the 
area of a rhombus (a "stepped-on" square) is given by |CD where 

C and D are the lengths of its diagonals. If you don't like math- 
ematics, just believe us that the area of a rhombus is half the 
product of its diagonals. (OK?) 

Write a program that will accept input values of C and D and 
print out the message 

THE AREA OF A RHOMBUS HAVING DIAGONALS AND IS • 

with the blanks filled in with the proper values. After your 
program is running properly, put in some extra instructions that 
will print out the message 

THE VALUES OF C AND D MUST BOTH BE POSITIVE, 
if anyone uses negative or zero values as input. 

Hint: ,, „ _ 

100 INPUT "PLEASE TYPE VALUES OF DIAGONALS C,D="; C,D 

110 IF C < GOTO 500 

120 IF D < GOTO 500 

130 A = .5*C*D 

150 PRINT "THE AREA OF A RHOMBUS HAVING DIAGONALS ";C;"AND"; 
D;"IS";A 



160 PRINT 
170 GOTO 100 



[continntd on mxt pagt) 
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500 PRINT "THE VALUES OF C AND D MUST BOTH BE POSITIVE." 

510 PRINT 

520 PRINT 

530 GOTO 100 

17. If N is the number of sides in a regular polygon and L is the length 

of each side, then the radius of the inscribed circle is 

L cos K it 

_ — wnere K = ^ 

2 sin K N 

The radius of the circumscribed circle is 

L . „ IT 

wnere K = 



2 sin K N 

o 
The area of any circle is given by irr where r is its radius and 
tt = 3.14159. . . You should be able to create a program that would 
list 

Number of Sides / Area of Inscribed Circle / Area of Circumscribed 

Circle 
for polygons having 3 or more sides each of length 1 unit. Do so. 
Examine the output and explain what is happening. If you don't know 
any trigonometry, do not let it disturb you. You can still write 
this program. Use 

K = 3.14159/N 

I = .5*C0S(K)/SIN(K) 

C = .5/SIN(K) 

where I stands for the radius of the inscribed circle and 
C stands for the radius of the circumscribed circle then 
Area = nr l . ' 

18. A tetrahedron (triangular pyramid) has four faces each of which is an 
equilateral triangle whose sides are each of length L. 

The surface area = 1.73205L 2 

The volume = 0.11785L 3 

At L = 1, the surface area is larger than the volume. 

At L = 20, the surface area is smaller than the volume. 

Find the value of L that makes the number of square units in the 

surface as nearly as possible equal to the number of cubic units in 

the volume. 

19. For what radius does a sphere have the same surface area (in square 
units) as volume (in cubic units)? 

Vol = |£ R 3 Surface = 4ttR 2 

20. If (XI, Yl) and (X2,Y2) are the coordinates of two points, the dis- 
tance between the two points is given by the formula 



D = / 2 2 

/(X1-X2) + (Y1-Y2) Write a program to accept the coor- 
dinates of two points and print out the distance between the points. 
Does the formula work if some of the values are negative? 
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22. CHALLENGE PROBLEM : A job pays you $1 for the first 8-hour day's 
work, $2 for the second day's work, $4 for the next day's work, $8 
for the next day's work, etc., doubling your day's wages each day, 
if you continue to work without being tardy or absent. It starts 
over at $1 any day you are late or missing. 

Find how many days you will have to work, without a tardy or absence 
to earn a total of a million dollars. How much would you earn the 
next day, if you were still on time? 

You may write your own program if you prefer, or you may use the 
program below: 

10 PRINT "DAY#", "PAY ON THAT DAY", "TOTAL PAY THUS FAR" 

100 S = 

110 D = 1 

120 P = 1 

130 S = S+P 

140 PRINT D,P,S 

150 D = D+l 

160 P = P+P 

170 GOTO 130 

After you run your program, modify it so that you can INPUT a value 
of T for the number of minutes tardy in step 170 and then send the 
program to 130 if T = but to 120 otherwise. Use T = 480 if absent. 

170 INPUT T 

180 IF T = THEN 130 ELSE 120 

What effect does this have? 

23. CHALLENGE PROBLEM : It is easy to observe that the sum of the first 
four natural numbers is 1+2+3+4 = 10 or that the sum of the first 
seven integers is 1+2+3+4+5+6+7 = 28. How many successive natural 
numbers beginning with 1 would you have to add together to reach 
or just exceed 1000? 

24. CHALLENGE PROBLEM : Bob drops a superball from a 4th floor window 
42 feet above the parking lot below. If on each bounce the ball 
ascends to half the height it fell on that bounce, how far will 
the ball travel (both up and down) when it hits the ground for the 
10th time? The 50th time? The 100th time? 

25. Display all the perfect squares, S = N*N, where N and S are positive 
integers (whole numbers) such that each S contains exactly six digits . 
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All right— it is now tine to learn to do something you can't find in 
a set of tables and can't do without a computer — at least not conveniently. 

Now, let's introduce a new instruction by reprogratmiing a "Table 
Maker" of lesson 2. 

A very useful instruction is the FOR. . .NEXT instruction. Try the 
following program on your computer. 

100 FOR K = 3 TO 10 

110 S = K*K 

120 PRINT K,S,K*S,S*S 

130 NEXT K 

140 PRINT "END OF TABLE" 

The FOR. . .NEXT instruction sets K = 3 and executes whatever in- 
structions lie between FOR and NEXT; then K is advanced to K = 4 and 
the instructions between FOR and NEXT are again executed; then simi- 
larly for K = 5,6,7,8,9,10. When K = 10, the instructions between FOR 
and NEXT are again executed with K = 10. After reaching 130 NEXT K 
with K = 10, the program continues to instruction 140. 

After you have run the above program, modify it to 

80 PRINT "TYPE BEGINNING VALUE, END VALUE"; 

90 INPUT B,E 

100 FOR K = B TO E 
110 S = K*K 
120 PRINT K,S,K*S,S*S 

130 NEXT K 

140 PRINT "END OF TABLE" 

150 PRINT 

160 GOTO 80 

RUN the program for several different values of B and E. Now we are 
ready to write a more sophisticated program. 
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Let's write a program to help us solve me ssy equations. 

Notice that no one said the program would solve equations. It 
won't. But it will do all the hard work and messy arithmetic for you. 
All you'll need to do is to tell it where to hunt for the roots, and it 
will do the hunting. Does that sound fair? Let's try it. If math- 
ematics bores you, just hang in there for now. We'll be doing computer 
assisted art in Lesson 4 but for now I want you to realize how easy it 
really is to do mathematics with the help of a computer. If you can do 
6th grade arithmetic, you can do this. Keep on reading, please. 

It may not have occurred to you that computer programs have to be 
"built." They do not spring full grown from the mind, but develop 
slowly — and are modified as they develop — until a final program you 
would be willing to share with a colleague eventually results. One of 
the primary rules for good programs is 



Make your program run first, 
then make it fancy. 



This is good advice . Let ' s use it . 



Our problem is to write a program to help solve the equation 



5X" + 3 



x 2 - 



2X - 5 = 0. 



We shall first write a program that accepts a value of X as input, and 
displays the value of X along with the corresponding values of 

Y = 5X 3 + 3X 2 - 2X - 5. 

To solve the equation, we must make Y = (or as close as we can get). 



The following preliminary program seems to provide the required 
evaluation. 



210 PRINT "TY PE X-VA LUE PLEASE"; 

215 INPUT X (EMErI 

240 Y = 5*X*X* X + 3*X *X - 2*X - 5 

250 PRINT X,Y jENTERl 

280 PRINT IENTERI 

290 GOTO 210 [ENTER | 



ENTER 



lENTERl 



Don't forget to type LIST 
check your program. 



ENTER 



IENTERI to 



Then type RUN iENTERl 
The program will print 

TYPE X-VALUE PLEASE ? 

If you type 

It will respond 
-5 
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TYPE X-VALUE PLEASE? 
If you type 1 [ENTER 
It will respond 
1 1 

TYPE X-VALUE PLEASE? 

The change of sign in Y from -5 to +l shows, since Y is a continuous 
function, that there is a root somewhere between X = and X = 1 — 
possibly nearer X = 1. 

3 2 

If we were to graph Y = 5x + 3x - 2x - 5 we would know that for 



X 





1 


Y 


-5 


1 



-5 



2 3 



-»-x 



Our observation suggests that for some X-value between X = and 
X = 1, the value of Y must be zero. It is this X-value that corresponds 
to Y = (3 that we seek. Y 

Let's try 0.8 I ENTER 
The computer responds 

.8 -2.12 

TYPE X-VALUE PLEASE? 

So we now know there is a root between ~ 
X = (2.8 and X = 1 (Why?) 



so we type 
and obtain 
.9 



0.9 



ENTER 



.725 



so the sign change (and root) comes 
between X = .9 and X = 1 



We can now enter 



.95 



ENTER 



-2 



0,1) 



-**x 



(.9, -.725) 



f (.8,-2.12) 



and if the corresponding Y is positive, follow this with .94 etc. 
Between .944 and .945 we eventually obtain the root accurate to 5 
or 6 significant digits. Try a few values yourself. 
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We can devise an even better helper program to solve equations. 
Let's modify our program so it accepts two values B and S (for 
Beginning value and Step size) and then prints out 11 pairs of values 
of X and Y before looping back to get another pair of starting values. 

If you aren't sure why this will be a convenient change, just wait 
until you try the program given below. 

We shall use our new FOR NEXT instruction. It is really a 

pair of instructions 

FOR K=l TO 11 



NEXT K 



The instruction FOR K=l TO 11 sets K = 1 and performs the instructions 
between FOR and NEXT (which may or may not involve K). 

The NEXT K instruction then adds 1 to K (making K=2) and again performs 
the instructions between FOR and NEXT. Then 1 is again added to K, 
producing K=3, and the instructions between FOR and NEXT are executed 
again, and again, and again until finally K=ll. The instructions between 
FOR and NEXT are performed once more, but this time whatever instruc- 
tion directly follows the NEXT is executed. 

The wee program 

100 FOR K=l TO 20 

110 PRINT K,K*K 

120 NEXT K 

2 
will produce a table of integral values of K and K for K between 1 and 

20 inclusive. 

The following program produces rather different results in Level I and 

Level II BASIC. 

Try it on your computer. 

100 FOR K=0 TO 20 STEP .5 
110 PRINT K,K*K 
120 NEXT K 

On Level I BASIC, it produces a table whose entries are 0s. This is 
because in Level I BASIC, STEP size must be an integer and STEP .5 is 
truncated to STEP 0. 

Level II produces a table of K, & for K between and 20 with values 
changing by .5. 

Try it if you are unsure. The best way to learn about your computer is to 
compute . 
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Let us return to our first version of 



21(3 PRINT "TYPE X- VALUE PLEASE"; 

215 INPUT X 

240 Y = 5*X*X*X + 3*X*X - 2*X - 5 

250 PRINT X,Y 

280 PRINT 

290 GOTO 210 

Let us contoine some of the tricks we learned in Lesson 2 to produce 
a table of eleven values of X and Y = 5*X*X*X + 3*X*X - 2*X - 5 starting 
with X = B and increasing the X value by S on each line. 



Second try: 



210 
215 
220 
230 
240 
250 
260 
270 
280 
290 



PRINT "PLEASE TYPE BEGINNING VALUE, STEP SIZE"; 

INPUT B,S 

X=B 

FOR K=l TO 11 

Y = 5*X*X*X + 3*X*X - 2*X - 5 

PRINT X,Y 

X=X+S 
NEXT K 
PRINT 
GOTO 210 



LIST 1 ENTER] and check y our program. 
Then type RUN 1 ENTE R 



The program will print 

PLEASE TYPE BEGINNING VALUE, STEP SIZE? 
and you type 
The output will be: 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 



ENTER 1 

-5 

1 ^" 

43 

151 

355 

685 

1171 

1843 

2731 

3865 

5275 



(Hott 6lgn change.'. 
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Since there is a sign change between X = and X = 1, you next type 



0, .1 | ENTER | which produces 




.1 
.2 
.3 
.4 
.5 
.6 
.7 



.165 

.24 

.195 



-5 

-5. 

-5. 

-5. 

-5 

-4.625 
-4.04 
-3.215 
-2.12 
- .724999 
1 ■*- 



[Uott 4-tgn change'. 



A sign change between .9 and 1.0 indicates a root there, 



so you type .9, .01 |ENTER| . 




which shows a root 




Then later you type .94, .001 | 


ENTERl 


between 


.944 and .945. 








.94 




- .#762806 




.941 




- 


0593705 




.942 




- 


0424247 




.943 




- 


0254455 




.944 




-8 


43143E-03 




.945 




8 


61549E-03 «- 


[Note, iign 


.946 






0256987 


change'. ) 


.947 






0428152 




,948 






0599666 




.949 






0771518 




.95 






0943718 





3 2 
So now we know that the equation 5x +3x -2x-5=0 has a root between 

x = .944 and x = .945. You can easily obtain 5 or 6 places of accuracy, 

if needed, but 3-place accuracy is frequently enough. 

4 3 2 
To solve 7x + 4x + 2x - 9x - 100, you need only to change line 

240 to 

240 Y = 7*X*X*X*X + 4*X*X*X + 2*X*X - 9*X - 100 

Starting values 0, 1 (and also 0, -1) will each be helpful in solving 
this problem. 
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Computer experts will prefer to write line 240 as 

240 Y = (((7*X + 4)*X + 2)*X - 9)*X - 100 

which saves both typing and, more important, computing time, since it 
uses only four multiplications instead of 10, each time Y is evaluated. 
If you have had a course in algebra, please multiply out the expression 
to see that the same results are obtained. You can solve many different 
equations by changing line 240. 

3 2 
What about solving x - 4.9x + 6.6x - 2.6 = by changing line 

240 to 

240 Y = ((X - 4.9)*X + 6.6)*X - 2.6 

Note that input B, S = 0, 1 produces three changes in sign. Find all 
three roots accurate to 4 or 5 significant digits. 

If you have Level II BASIC, you may wish to try Y = e x cosx - 2.6 
240 Y = EXP(X)*CCS(X*X) - 2.6 

This program is really quite a valuable tool. It will help you to solve 
almost any continuous (e.g., no ha.cX.on. in the denominator that might 
be ze.no ■ {ok X Imide the interval in which you. axe seeking a root ) 
function set equal to zero. 

Polynomials come under this classification — even polynomials in sin(x), 

oos(x), e x , as well as polynomials in X. So do many other functions, but 
not equations like 
3 



2x 



= 



since y 



2x-.l 



is discontinuous at x = 1/2 



Y 



-•►X 




Remember: to change the equation being solved, you only need to 
change instruction 240 to 

240 Y = (whatever continuous function you are trying to make zero). 
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CORRECTING ERRORS discovered at RUN time . 

You may have noticed that the TRS-80 will frequently detect errors 
in spelling or punctuation of instructions and will warn you of these 
errors by printing an ERROR message: consider the following erroneous 
program: 

100 EOT K=l TO 10 
110 PRINT K,K*K 
120 NEXT K 

in which FOR is misspelled POT in line 100. If you type 



RUN ENTER 



the computer responds 

?SN ERROR IN 100 

READY 

100 _ 

The first line tells you that there is an ERROR in statement 100. 

We shall talk more about ERROR types later on - for now you can usually 

spot the error by looking at statement 100. 

For certain (but not all) errors, the computer will shift automatically 
into EDIT mode. This is indicated by displaying the line number where 
the ERROR has been detected just below the ERROR IN 100 message. 

If you depress the \h\ key (wit hout ENTER), the entire line will be 
displayed, and the line number repeated 

100 EOT K=l TO 10 
100 



If you tap the I space bar] the line will appear character by character 
until the underline marks where the ERROR is: 

100 POT K=l TO 10 
100 P0_ 

Now depress [c] (which stands for change); nothing visible will happen, 
but if you now depress the desired character [r] it will appear . If 
there are other errors, correct them too. Then depress [ENTER| 



Type LIST |ENTER| and you will find the correction was made. 

If you should need to delete a character depress [5] instead of [Cj 
the deleted character will appear between ! ! symbols. To insert a 
character depress [T] instead of QT] and then depress the desired 
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character. If you wish to change, delete or insert several characters 
depress the number key before depressing the [c] , [D] , |T] key. 
Thus [3] Q] will enable you to insert 3 characters. This is only 
part of a set of powerful EDIT instructions available in Level II BASIC. 
We shall discuss them in Lesson 8 , but you may peek now if you wish. 

In many cases it is much simpler to merely retype the line, rather 
than using the EDIT instructions. In such a case if you type 

RUE lENTER] and get 

?SN ERROR IN 100 

READY 

100- 



Simply depress | ENTER | 

This will display line 100, and dis play th e >_ which you must have 



to enter an instruction. Depresssing |ENTER| will display 



?SN ERROR IN 100 

READY 

100 TOT K=l TO 10 



Then you merely retype the instruction 



>100 SCR K=l TO 10 [ENTER 



The critical things to remember are: : 

ffl 

The computer indicates it is ready to accept data by displaying ? | 
Do not type anything but data if you have a ? displayed. j 

a 

a 

The computer indicates it is ready to accept an instruction by j 
displaying >_ ■ 

Do not type an instruction unless you have a >_ displayed. ; 



If in doubt depress | BREAK | followed by 
READY 



ENTER 



to get 
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SUMMARY OF LESSON 3 
We learned about the 
FOR K = 3 TO 10 

NEXT K 
and 

FOR K = TO 20 STEP . 5 



NEXT K 



instructions, and used them to develop a powerful program that can be 
used to help solve continuous equations. 

We also learned how to correct errors that are detected by the computer 
at RUN time. 

Perhaps the most important thing we learned in Lesson 3 is that mathe- 
matical problems are not inherently difficult. Even if mathematics 
troubled you in the past, with the able assistance of a microcomputer 
YOU CAN use plain old cannon sense to solve problems that would cause 
a college mathematics major difficulty if he tried to solve them without 
a computer. 



Note that remarks by the progranmer, which are not printed by the 
program may be included by proceeding them by REM. 
See page 44, problem 17. 



44 



PRACTICE SET 3 

In problems 1 to 10, use the second equation solver program to help 
you find solutions of the problems given below. 

1. x 5 + 3x 4 + 2x 3 + 5X 2 + 3x - 25 = 

2. x 5 - 31 = 

3. 7x 4 + 6x 3 + lOx 2 - 5x- 1 = 

4 4x3 _ 8x 2 -29x - 13 = [Vivid thxte. xooti, between -10 and 

+ 10.) 

5. x 4 - 3x 2 - 4 = 

6. a. x 4 - x 3 - 5x 2 - x - 6 = 
b. x 4 - x 3 - 5x 2 - x - 5 = 

7. 2x 4 + x 3 - 8x 2 - x + 6 = 

8. 6x 4 + 5x 3 - 14x 2 + x + 2 = 

9. 3x 3 + 4x 2 - 12x - 16 = 

10. 4x 4 - 13x 2 +3=0 

11. a. 2x 4 - x 3 - 15x 2 + 6x + 17 = 

b. 2X 5 - x4 - 6x 3 + 3x 2 + 4x - 2 = 

12. Change the constant terras in some of the above equations and try again. 

13. If you have a Level II BASIC, try some trigonometric equations like 

X*SIN(X) -2=0 

X*EXP(X)*00S(X) + X*X - 4.5 = 

The fascinating thing is you don't really need to understand trigonometry 
to solve the given (rather carefully selected) equations. 

14. Forecast the output of the following program, then RUN it to check 
your forecast. 

100 FOR X=l TO 10 STEP .2 Be hvJie. to think about wheMie.fi 

110 PRINT X,X*X, X*X*X youA computeA hoi, LtveZ 1 BASIC 

120 NEXT X ox UveJL 11 BASIC. 
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15. Use the program 

90 INPUT "PLEASE TYPE BEGINNING VALUE, END VALUE, STEP SIZE="-B E S 

100 FOR X = B TO E STEP S 
105 Y=X*X 
110 PRINT X,Y,X*Y,Y*Y 

120 NEXT X 

130 PRINT 

140 GOTO 90 

16. The following program is supposed to accept a positive integer value 
N and print out the values of N and Nl = 1*2*3*. . .*N. 

It seems to work the first time through, but then prints out non- 
sense values for Nl Try it and see. Then debug and repair the pro- 
gram. 

100 PRINT "N", "N-FACTORIAL" 
110 PRINT 
120 F=l 

150 INPUT "TYPE INTEGER WHOSE FACTORIAL YOU WISH" ; N 
155 IF N<0 THEN 150 

160 IF N=$ PRINT N, F Theie tut the Input data. . . 
170 IF N<>INT(N) THEN 150 NOTE: IWT(W) pnoduau the, Integen. 
200 FOR K = 1 TO N position Off W, io 

210 F = F*K 170 IF N <> IWT(N) THEM 150 

220 NEXT K looki at N and l\ N l& not an 

250 PRINT N, F Integex, the. pA.ogn.am goeJ> back to 

260 GOTO 150 1 50, Slmltanly, l£ N l& negative, 

ImtAuctlon 155 IF N < THEN 150 
■&e,nd& the pn.ogn.am back to Initnuc- 
tion 150. 

17. The following program is supposed to accept two integers N, D and y 
determine whether or not D is a factor of N. Does it work? If so, 
why? If not, fix it. The heart of the program is lines 130, 140. 

100 INPUT "TYPE IN TWO POSITIVE INTEGERS"; N, D 

110 IF N<D THEN 500 

120 IF N=D THEN 600 

130 Q=INT(N/D) 

140 IF D*Q <> N THEN 400 

200 REM PROGRAM COMES HERE ONLY IF D IS A FACTOR OF N 

210 PRINT D; "IS A FACTOR OF";N 

220 PRINT 

230 GOTO 100 

400 REM PROGRAM COMES HERE ONLY IF D IS NOT A FACTOR OF N 
410 PRINT D; "IS NOT A FACTOR OF " ; N 
420 PRINT 
430 GOTO 100 

(continued on next page) 



46 



17. (continued) 

500 PRINT N;"=N IS SMALLER THAN D=";D; "HENCE D CAN'T BE A FACTOR OF"N" 

51(3 X=N 

520 N=D 

530 D=X 

540 GOTO 130 

600 PRINT "THE VALUES BOTH EQUAL"; N, "HENCE EACH DIVIDES THE OTHER" 
610 PRINT 
620 GOTO 100 

18. In Lesson 2 you wrote programs to change temperature in Fahrenheit to 
temperature in Celsius and vice versa. Combine the ideas of your fro 
programs into a single program that accepts B, S, E as Beginning 
value, Step size, and End value for T and then writes out two sets of 
tables side by side (four columns) using 

PRINT T;C,T;F ■< [Mote a4£ o& ; , ; In output hdJie..) 

where T runs from B to E in steps of S and where 

C = (the Celsius temperature corresponding to T degrees in Fahrenheit) 

F = (the Fahrenheit temperature corresponding to T degrees Celsius) 

19. Write a program to INPUT the hourly rate, R, and the number of hours, H, 
worked in a given week and print out the employee's gross wages 

for that week, assuming (s)he is paid time and a half for all time 

over forty hours in a given week. 

The output statement might be: 

PRINT "$" ;W; "FOR" ;H; "HOURS AT BASIC HOURLY RATE OF";R 

but you'll have to scratch your head a bit to compute the total for W, 

including the overtime payments, if any. Don't make the error of 

subtracting ten hours of "undertime" for an employee who only works 

30 hours. It does not work that way. 

4 3 2 

20. Write X - 7X + 5X + 3X + 71 as a series of nested parentheses. 

21. Express (((3*X - 7)*X +5)*X +2)*X + 13 in a form without parentheses. 

22. CHATIFNGE PROBLEM : The sequence 1,1,2,3,5,8,13,21, .. .is created by 
writing 1,1 and then each succeeding term is the sum of the preced- 
ing two terms, 1+1=2, 1+2=3, 2+3=5, etc. 

Write a program to compute the first 100 or so terms of this 
"Fibonnacci sequence." 

23. CHALLENGE PROBLEM : Solve X 2 - cos X = 

24. CHALLENGE PROBLEM : 4x 8 - 2x 7 + x 6 - 3x 4 + x -x + 1 = 
presents an interesting puzzle for the mathematically-oriented, 
reader . 
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25. CHALLENGE PROBLEM : A dog is chasing a rabbit. The rabbit takes 
three jumps in the same length of time the dog takes two jumps, but 
each rabbit jump covers only half of the distance of a dog jump. 
The rabbit was 13 rabbit jumps ahead of the dog when the dog first 
spotted the rabbit and started after it. If both go in a straight 
line, how many more jumps will the rabbit take before the dog 
catches it? 

26. CHATiTiENGE PROBLEM : How much must you invest now in an account pay- 
ing 9% interest compounded quarterly to have $100,000 when you are 
70 years old? (If you don't want to give your age away, figure it 
out for S. Marguerite who is 22 years old.) 

27. CHALLENGE PROBLEM : Legend states that in 1626 Manhattan Island was 
purchased from the Indians for $24. If that $24 had been invested 
at 12% interest (a modest interest rate at that time) what would the 
$24 be worth today? 

(How does this compare with the value of the land in Manhattan 
Island today?) 

28. Here are two small " research" problems for you. 

CHALLENGE PROBLEM : The four-digit number 9801 has the unusual 
property that if you take the two-digit number formed by the first 
two digits, 98, and add it to the number represented by the last 

two digits, 01, then 98 + 01 = 99 and (99) 2 = 9801. Find all four- 
digit numbers that have this property. 

29. a) CHATLENGE PROBLEM : A 4 by 4 rectangle (square) has the unusual 
property that its perimeter (distance around it) is the same as its 
area (both are 16 ) . Your problem is to find another rectangle that 
also has the property that its length and width are both integers 
and its perimeter (2*(L+W)) is equal to its area (L*W). 

b) CHALLENGE PROBLEM : If you like mathematical thinking, see if you 
can prove that the two rectangles you found above are the only two 
such rectangles that exist. 

30. CHALLENGE PROBLEM : The song "Twelve Days of Christmas" mentions 

various gifts that "my true love gave to me." Let's interpret the 
song so that "on the third day of Christmas, my true love gave to me 
three French hens, two turtle doves and a partridge in a pear tree." 
My true love gave me six presents (3 French hens, 2 turtle doves, and 
a partridge, if we don't count the pear tree as a gift). How many 
gifts in total did my true love give to me during the twelve days of 
Christmas? Write a program to determine the sum. 

Answer: 364, if you do not count the pear tree as a gift. 
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Computers are fun. They make great adult toys. As my daughter says, 
"The main difference between men and boys is the price of their toys." 
Well, a modern computer costs less than many adult toys — a Jaguar XKE, 
a sailboat, a motor boat, a golf cart or even a set of clubs can cost 
more than a computer. Of course, the computer is a very useful device 
(but so is an XKE) so let's just look at how to have fun with it. 

If you are curious, you may have doped out how the little surprise 
program of Problem 8, Lesson 1, worked. Let's look at it. 



Remember to depieAi, |EMTER at the. end o& each tine 





Level II 


BASIC 


1\ieu 


ENTER] 




10 PRINT @ RND(1000)-> ' 



Level I BASIC 



"HI SUZANNE" 
IS IF RND(0) < .05 THEN CLS 
50 GOTO 10 
RUN 



ENTER 



NEW , 

10 PRINT AT RNB (10.00), "HI SUZANNE" 
IS IF RND{0)<.05 THEN CLS 
20 GOTO 10 
RUN 



Line Ity contains two new ideas. One of these is the idea of a random 
number generator. TRS-80 contains two types of random number generators: 

One is called KND(0). RND(0) produces a random decimal number between 
and 1. 

The other is RND(w), where n is a positive integer. RND(n) produces 
a random integer between 1 and n inclusive. 

To see how they work, use the programs on the following page. 
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1000 PRINT RND(0); 
1010 GOTO 10J& 
RUN 1(30(3 



ENTER 



t 



After you have a screen full of that, try 



1000 PRINT RNB(100); 
1010 GOTO 1 000 



RUN 1000 ENTER 



Later, change instruction 1(300 to 

1000 PRINT RNK10); Uott ^ £ ^ ^ ito ^ on ,,„ G0TO J( 

and type RUN 1000 | ENTER] again. 



Each time you call RND(n) a random number is produced that is differ- 
ent from the random number produced last time, even though the same n 
is in the parentheses. 

The second new idea in the instruction 
10 PRINT @ RND(1000), "HI SUZANNE" 
is the PRINT AT , " " instruction. 



For purposes of the 
into 1024 cells, 



PRINT AT __ , " the screen is divided 

sixteen rows of 64 elements each. Each cell exactly 
fits one letter plus the space between rows for that letter. The cells 
are numbered from to 63 in the first row, 64 to 127 in the second 
row, etc. (See illustration on the following page.) 




t 



RUN ENTERl to make the 



Thli ut>eJ> RUN 1000 \ ENTER I in place. o£ _____ 

compotes ikip any pfiognam In 10, 15, 20,... ,999, and htaxt RUNning at 
statement 1000. A neat thick. 
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Try the program 



1(300 INPUT N 

1(305 CLS 

1(31(3 PRINT @ N, "* HARKS LOCATION"; N; 

1050 GOTO 1000 

RUN 1000 



(ll6e AT In placid ofi § on 
Laval I BASIC.) 



The instruction 

/AT\ „ AT In Laval I BASIC. 

PRINT (@j «■ to£ § « Laval II BASIC. 

will start printing at location n and print whatever is called for. It 
prints any symbols it finds inside of quotes as symbols and the values 
of any variables it finds outside of quotes, providing the proper corrmas 
and/ or semicolons are included. 

For example, instruction 1(3 of the program in Problem 8 of Lesson 1 
lp PRINT W RND( 1000 ) , "HI SUZANNE' ' 

combines these two instructions. RND(1000) generates a random integer 
between 1 and 1000. 

PRINT (®) RND(1000), "HI SUZANNE" 

then prints whatever is in the quotes, starting at whatever random loca- 
tion RND( 10(30) generated. The next time, a different random integer is 
generated. The result is the statement in quotes is flashed all over the 
screen. 
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If you wish a snow storm, try 



NEW ENTER 



1000 PRINT 



AT 



RND(10E0), 



n*it . 



10S0 GOTO 1000 



To keep the hcxeen. inom £cA.olLLng 
u&e ; at the end o£ tine 1000. 



To occasionally wipe the screen clear, add 

1010 IF RND(0)<.01 THEN CLS 

The instruction KND(0) generates a random decimal number between and 
1. If the random number generated is less than .01 (which it will be 
about once in 100 numbers on the average), the "clear screen" instruction 
CLS is executed. Otherwise, CLS is ignored. In either case, the in- 
struction 102(3 GOTO 1000 is executed next. 



Here are some interesting programs. Try them on your TRS-80. 



NEW lENTERl 

5 CLS 

10 FOR L = TO %0 STEP LH 

IS FOR K = 1 TO LI 

S0 PRINT @ K + L, "HI youA name" 

55 NEXT K 

30 NEXT L 

40 GOTO 10 

After you try that with several different names, change instruction 15 to 

IS FOR K = L2 TO 5 STEP-1 

and RUN it again. 

Here is another FUN program. Please try it, then analyze what happens 
and why. The CHR$( ) instruction, discussed later in this lesson, dis- 
plays the character corresponding to the value in the parenthesis. 



/NEW 



ENTER 



100 CLS 

110 N=l 

120 PRINT @ 1?p, " MOBILE ART FORM 

130 FOR < = lET TO ]fll 

m0 PRINT @ RNDCTO^CHRSKK) ; 

1S0 NEXT K 

1L0 N = N+l 

170 FOR a = TO RND(N) : NEXT Q. 

Ifltf IF N < 50 THEN 130 ELSE 100 



(Note: CHR$( ) is 
not available in 
Level I BASIC. ) 
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Your TRS-80 has much finer graphic capabilities than we have been 
using in PRINT {._) , " ". Actually, each letter- 
sized cell is broken up into six smaller rectangular cells, or pixels, 
counting the space between lines, and each cell is individually address- 
able. The system of numbering from to 1023 is too coarse for this use. 
The individual spots are addressed by giving an X, and Y-coordinate with 
< X < 127 and < Y < 47. The (0,0) point is in the upper left edge 
of the screen. X increases to the right. Y increases downward. 




So, (3d, 17) is 30 spaces to the right and 17 spaces down from (0,0), as 
shown above. 
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Try _ . , 

1PPP INPUT "X,Y=" ; X,Y 

liana set(x,y) 

1020 GOTO 1000 
RUN 

There are three instructions used with these spots: 

SET(X,Y) This lights point (X,Y). 

RESET (X,Y) This darkens point (X,Y). 

POINT(X,Y) This is used to determine whether or not point (X,Y) is 

lighted. If lighted, it returns "logical yes", otherwise, 
"logical no", as used in an IF THEN instruction. 



100 CLS 

11(3 FOR K = TO m 

1H0 SET(K,K) : SET(K+b0,K) 

130 NEXT K 

RUN 

After you have RUN the above program, and understand why it produces 
two wiggly diagonal lines, try adding 

125 SET(12p-K,K) : SET(60-K,K) 
Before you run t he new program 

110 FOR K = TO "47 

120 SET(K,K) : SET(K+L0,K) 

125 SET(120-K,K) : SET(b0-K,K) 

130 NEXT K 

see if you can forecast the pattern that will be produced. Then (and only 
then) type RUN 1 ENTER| to check your forecast. This is one of the 
best ways to learn about computers. 

IF POINT(X,Y) THEN RESET(X,Y) will test (X,Y) and turn it off, if it is 
on. However, RESET(X,Y) also turns off point (X,Y) and takes less time. 

Later, you will find uses for POINT(X,Y) in programs in which you will 
need to test whether or not a given pixel is lighted. 

The following program will help you become familiar with the loca- 
tion of the various (X,Y) rectangles (pixels). It lights a rectangle 
chosen at random, and then permits you to input your estimate of the co- 
ordinates (X,Y) of that rectangle. If you miss, a rectangle will blink 
at the coordinates you chose to show you its location with respect to 
the unblinking target. You may then input another guess. 
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/l00 R = 1(3 + RND(30) 

110 C = 50 + RND(b0) 

120 CLS 

130 SET(C,R) 

140 INPUT "PLEASE TYPE YOUR ESTIMATE OF (X,Y) AS X,Y -"; X,Y 

150 IF(X-C) AND (Y=R) THEN 400 

500 FOR K=l TO 500 
510 SET(X,Y) 
550 RESET(X,Y) 

530 NEXT K 

540 GOTO 150 

400 REM HERE IF ESTIMATE IS CORRECT. 

410 PRINT @ 70, "YOU ARE CORRECT. CONGRATULATIONS." 

450 FOR (3=1 TO A00 : NEXT (3 

430 FOR (2=1 TO 50 : PRINT @ RN»(1000), "YOU DIN" : NEXT fl : CLS 

440 PRINT @ 126, "HERE IS ANOTHER POINT FOR YOU" 

450 FOR (3=1 TO 500 : NEXT (3 

4L0 GOTO 100 



It is a game... put it on your computer and play it. This is guaranteed 
to improve your visualization of what is where on the pixel screen. 



Here is another possibly useful technique. 

Let us use our knowledge of graphics to create a bar graph or histo- 
gram for the number of students attending The University of Oklahoma. 
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100 CLS 

110 PRINT 
120 REH 
130 PRINT 
140 PRINT 
150 PRINT 
Jfc,0 PRINT 
170 PRINT 

200 REM 



> b, "GRAPH OF ENROLLMENTS AT THE UNIVERSITY OF OKLAHOMA" 
LABEL THE LINES FOR THE BAR GRAPHS 
I ISA, "1140" 



na, 

25b, 
320, 
3fl4, 



"nS0' 
"1170' 

"nap' 



DRAWS THE ACTUAL GRAPHS 
220 FOR X=12 TO 42 
230 SET(X,b) : SET(X,7) 
240 NEXT X 

320 FOR X=12 TO 5b 

330 SETCX,^) : SET(X,10) 

340 NEXT X 

420 FOR X-12 TO b4 

430 SET(X,12) : SET(X,13) 

440 NEXT X 

520 FOR X-12 TO 102 

530 SET(X,1S) : SET(X,lb) 

540 NEXT X 

b20 FOR X=12 TO 124 

b30 SET(X,ia) : SET(X,]fl) 

b40 NEXT X 

A shorter and more powerful graph generator can be written using 
instructions we have not yet studied (see Lesson 13). In this version, the 
years and the values to be plotted are stored in DATA statements and enter- 
ed into the computer using a READ instruction. (Not available in Level I.) 



6, "GRAPH OF ENBDLLMENTS AT THE UNIVERSITY OF OKLAHOMA ' 



5 CLEAR 200 
10 CLS 
100 PRINT 
110 READ Y, D 
115 IF Y < THEN 115 

120 DATA 1940, 21, 1950, 28, 1960, 32, 1970, 51, 1980, 62, -1, 
130 PRINT Y; STRING$(D,143) 
140 GOTO 110 



However, it is better to learn to walk steadily before one tries to run or 
to fly — We invite you to use the above program either with the given data 
or by changing instructions 100 and 120 to produce another histogram of 
more interest to you. The end of your data should be indicated by -1,-1 
as above. If the data values for D lie between 1 and 59, the program will 
graph the data on a single line; otherwise more than one output line may 
be required in which case you may wish to insert 135 PRINT in the above 
program. Experiment a bit. 
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Try the small-flake snowstorm programs below. 



f ii.00 SET(RND(127), RND(47)) 
11(3 IF RND(!3)<.0!31 THEN CLS 
120 GOTO 100 



/ % CLS 
100 X=RND(12?) 
' 110 FOR Y=l TO 43 + 
,120 RESET(X,Y) : 
! 130 NEXT Y 
| 140 GOTO 100 



RND(3) 
SET(X,Y+1) 



Here is another interesting program, 
"campus planning program". 



The students claim it is a 



/ 50 
f fi0 
i 100 
i 110 

! 200 

! 205 

! 210 

215 

220 

■ 225 
230 

■ 235 
240 

. 245 

i 250 

! 255 

2t>0 

2t,5 

270 



N=l 

CLS 

PRINT " CAMPUS PLANNING PR0GRAI1 

FOR K=l TO 3+RND(17) 

SX=RN»(70) 

SY=3+RND(23) 

L=RND(S5) 

U=RND(20) 

FOR X=SX TO SX+L 

SET(X,SY) : SET(X,SY+ti)) 
NEXT X 
FOR Y=SY TO SY+U 

SET(SX,Y) : SET(SX+L,Y) 
NEXT Y 

TO 100+RN1X300) 



FOR (3=1 
NEXT K 

FOR £3=1 TO fl00 
N=N+1 
GOTO S0 



Ij$ you'd like, to have, youx N-S 
watti the. iame width <u the. 
E-W watU, add: 
243 SET(SX+7 ,V) :SET{SX+L+1 ,V) 
NEXT a 



NEXT Q 



IjJ you want a longex took at a iptc- 
ioJL design on the. i>cAe.e.n, de.pn.eM 
SHIFT] | @ I to halt the. pn.ogtw.rn. 



Then dtpfita any feet/, without I -SHIFT! 

to continue.. 
Note instruction 26j3 K)R Q = 1 TO 80(3 : NEXT Q. This forces the 
program to count to 800 before it goes to instruction 8(3 and clears the 
screen. Separate instructions are separated by colons in lines 225, 24(3, 
25(3 and 260. 



The following program contains several instructions we have not 
discussed yet. If you are particularly interested in learning about them, 
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consult Lessons 12 and 14. However, you can use the programs with- 
out having to understand LEN(Z$) or MID$(Z$,K,1). 



i lip ZS= "YOU HAVE ALREADY LEARNED LOTS-, BUT STILL HAVE OTHER GOODIES 

! TO INVESTIGATE-, TOO." 

■ 120 K=0 

; 130 E-INT((LEN(Z*)+l)/5) 

mp for A=sa to e step -s 

1SJ8 X=1S*SIN(A) 

lb0 K=K+1 

170 PRINT TAB(X+30) ; f1ID*(Z*,K,l) 

lfl0 FOR (2=1 TO S0 : NEXT Q 

110 NEXT A 

200 FOR (2=1 TO 300 : NEXT Q 

210 GOTO 100 



Run the program. Then, change line 110 to 
11D ZS = " 



where you type any message you wish between the quotes. 
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Let us write a program to create a rectangle on the video screen. 
Select as vertices the following points: 



A(25,1P) 

C(25,3jD) 



B(45,lp) 
D(45,30) 



We might believe that the result will be a square, since the dis- 
tances AB,BD,DC,CA each appear to be twenty units in length, i.e. 

X-distances are each 45-25=20 units 
Y-distances are each 30-10=20 units. 

However, this is not valid. Let us write the program and then examine 
the output. 



/ 10 CLS 

! 100 REM DRAW LINE FROM (25,10) TO (MS, 10) 

: 110 Y=10 

120 FOR X=25 TO 45 

130 SET(X,Y) 

140 NEXT X 

200 REM DRAW LINE FROM (55,30) TO (45,30) 

210 Y=30 

220 FOR X=25 TO 45 

230 SET(X,Y) 

240 NEXT X 

300 REM DRAW LINE FROM (25,10) TO (25,30) 

310 X=25 

320 FOR Y=10 TO 30 

330 SET(X,Y) 

340 NEXT Y 

400 REH DRAW LINE FROM (45,10) TO (45,30) 

410 X=45 

420 FOR Y=10 TO 30 

430 SET(X,Y) 

440 NEXT Y 



RUN the above program. 



OUTPUT 
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The rectangle was not a square. Indeed, it is about twice as tall 
as it is wide, since the "spots" (pixels) located at (X,Y) are actually 
rectangles (as you can see by typing SET (100, 30) I ENTER) ). In other 
words, the X-direction units are only half as large as the Y-direction 
units. 

To obtain a better approximation of a square, you could change each 
of the 45' s to 65 's (in instructions 120, 220 and 410). Change the steps 
as suggested and RUN the program again. It still isn't a perfect 
square, but it is much improved. What about lines 100, 200, and 400? 

It is possible to make the lines of this square of equal weight by 
changing instructions 330 and 430 to 

330 SET(X,Y) : SET(X-1,Y) 
430 SET(X,Y) : SET(X+1,Y) 

Try these alterations and see how the new program behaves. 

It still does not produce a perfect square. . .perhaps because the 
rectangular "pixels" are really not exactly twice as high as they are 
wide. 



Depress I BREAK | and | CLEAR! and type 
LIST 



ENTER 



This will display your current program which should be : 

fl$ CLS 

100 REM DRAW LINE FRO II (55,10) TO (L5,10) 

110 Y=10 

120 FOR X=25 TO bS 
130 SET(X,Y) 

140 NEXT X 

200 REfl DRAW LINE FROM (25,30) TO (bS,30) 

210 Y=30 

220 FOR X=25 TO fc.5 

230 SET(X,Y) 

240 NEXT X 

300 REM DRAW LINE FR0I1 (25,10) TO (25,30) 

310 X=25 

320 FOR Y=10 TO 30 

330 SET(X,Y) : SET(X-1,Y) 

340 NEXT Y 

400 REM DRAW LINE FRON (L5,10) TO (L5,30) 

410 X=b5 

420 FOR Y=10 TO 30 

430 SET(X,Y) : SET(X+1,Y) 

440 NEXT Y 
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Your task is to adjust the width of the rectangle to produce the 

best square you can. Increasing the 65 's in instructions 12(2), 22(3 and 

410 slightly (say, to 75) may be all that is needed. Play with it a bit 
yourself . 

Actually, the program can be shortened considerably by drawing the 
two parallel lines in the same FOR NEXT loop, as illustrated below. 



NEW 

10 CLS 

1(3(3 FOR X=2H TO 73 

11(3 SET(X,1{3) : SET(X,3(3) 

12(2 NEXT X 

2(3(3 FOR Y-ll TO 2=1 

21(3 SET(2M,Y) : SET(2S,Y) 

22(3 SET(72,Y) : SET(73,Y) 

23(3 NEXT Y 

25(3 PRINT @ M(3S, "SQUARE" ; 

3(3(3 GOTO 3(3(3 

Instruction 25(3 prints the word SQUARE in the drawn square. The 
; at the end of instruction 25(3 prevents that instruction from clearing 
the following line and thus disrupting your square. 

Instruction 

300 GOTO 300 

puts the program in a "tightloop" that prevents the TRS-80 from displaying 



READY 
> 



which could disrupt t he disp lay. To get the computer out of this tight- 
loop, depress the | BREAK] key. 
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CHR$ ( ) 



Each screen character or action (including scroll, space, backspace, 
carriage return, and convert to double-size letters) has a numeric code 
that corresponds to it. 

In Level II BASIC (but not in Level I) it is possible to use the 
instruction CHR$(n) (where n is an integer or a variable that has value 
between and 255) to obtain the screen character or action correspond- 
ing to the number n. 



1(3(3 INPUT K 

UP PRINT K; 

13(2 PRINT CHR$(K) 

2(3(3 GOTO 1(3(3 



will permit you to test this out. 

Use the followin g input values, among others, to obtain a variety 
of symbols: (type and I EN'iin. I them one at a time.) 

33, 36, 42, 60, 88, 91, 92, ljD9, 134, 148, 191 

The following program will print the character number along with a 
row of that particular character. This may be useful as a border on a 
graphic display. 



1(3 CLS 

1(3 PRINT "PLEASE TYPE A NUHBER BETWEEN 33 AND Ml" 
1(3(3 INPUT K 
11(3 PRINT K, 
12(3 FOR L-l TO MS 
13(3 PRINT CHR*(K); 
1H(3 NEXT L 
15(3 PRINT 
2(3(3 GOTO 1(3(3 

Try 33, 36, 38, 42, 47, 60, 62, 72, 88, 91, 92, 109, 125, 126, 134, 135, 
141, 148, 152, 187 and 191 to obtain a variety. 

To see the entire array of useful display symbols, change instruction 100 
and add instruction 170 as suggested below: 

1(3(3 FOR K=33 TO ]fll 
176 NEXT K 

After you have run the program a few cycles, you may wish to permit 
K to range from to 255 in instruction 100. But the effect of CHR$( ) 
values outside of the range 33 to 191 is harder to visualize from the 
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program. For example: CHR$(8) backspaces and erases character. 
The effect of CHB$(W) for several W- values is given below: 



W- value 



8 

10-13 

14 

15 

23 



Effect or Character Printed 



Backspaces and erases one character 

Linefeed / Carriage Return 

Turns on Cursor 

Turns off Cursor 

Converts to double-size letters 



CHR $(23) 



WANT TO SHOV WR 
PROGRAM TO A CROWP T 
PRINT CWR4IZ3) WILL nAXE) 

ovtfut twice: h%. 



ThJj> iA handy -in youA pfiogfuxmi ! 
Ju&t include, 

WS VKIUT CHR${23) 

and youA output wLU, be doublt- 
&lztd until the, next CLS. 







24 


Backspace Cursor ( -<- ) 


25 


Advance Cursor ( ■*• ) 


26 


Downward Cursor (Linefeed or +) 


27 


Upward Cursor (Linefeed or +) 


28 


"HOME", Returns Cursor to (0,0) position 


29 


Moves Cursor to beginning of Current Line 


30 


Erase to End of Line 


31 


Clear to End of Frame 


32 


Space 


33 


j 


34 


it 


35 


# 


36 


$ 


37 


% 
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W- value 


Effect or Character 


W- value 


Effect or Character 


38 


& 


95 


(Underscore') 


39 

40 
41 


/ 
( 
) 


96-127 
128 


Lowercase a-z 
(but TRS-80 does not dis- 
play lowercase) 
Space 


42 
43 


* 

+ 


129-191 


Various combinations of 
Rectangles for fast SET() 


44 


3 


192-255 


Tabs for <p to 63 spaces 


45 


- 






46 


• 






47 


/ 






48 









49 


1 






50 


2 






51 


3 






52 


4 






53 


5 






54 


6 






55 


7 






56 


8 






57 


9 






58 








59 


5 






60 


< 






61 


= 






62 


> 






63 


? 






64 


@ 






65-90 


A - Z 






91 


+ 






92 


4- 






93 


-<- 






94 


-> ■ 
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GRAPHING FUNCTIONS 




Just so you won't feel 
this chapter is entirely friv- 
olous, let's write a program 
to graph the function 

y = 20+20 sinx for 0<x<3.2 

(radians, of course). If 

you don't know what that 

means, don't let it bother 

you. The point is that the 

computer knows what it means. 

If you just realize that for each value of x between (3 and 3.2 that you 

think of, the computer will supply you with a corresponding value of 

y= 20+20 sinx, that's all you need to know. It doesn't really make any 

difference that sinx is frequently used in trigonometry and you don't 

know any trigonometry. . .just hang on and have faith. 

Let's write a short program to see that the computer really can supply the 
desired value. 

Level II BASIC 



10 PRINT "X", 
100 FOR X=!3 TO 

ii(3 Y=a0+2(a*siN(x) 

120 PRINT X,Y 
130 NEXT X 
RUN 



3. a STEP 0.1 



Your computer should produce: 





.1 

.a 

-3 

■ H 

■ S 



a0 

El.TJb? 

E3.T73H 
ES.110H 
a?.?flflL4 

ai.saas 
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Now, what we want to do is to graph this function instead of making a 
table of values. 

Recall that the X,Y coordinates on the screen are (0,0) at the top left 
and Y increases downward. This is inverted from the usual graph. 





X -> 



We shall create a new variable Yl = 40 - Y so that 

Y Yl 






40 


20 


20 


40 






This will invert our graph. (Think about that a bit if it bothers you.) 

We'll also introduce a new variable XI = 10*X to spread the function out 
on the screen. The program 



10 CLS 
100 FOR X=0 TO IE. 5 STEP 0-1 
120 Y=S0+20*SIN(X) 
130 X1=10*X 
1H0 Yl=40-Y 
150 SET(X1,Y1) 
lb0 NEXT X 
170 GOTO 170 



will produce an acceptable graph of the function 

t/ = 20 + 20 * SIN(x) 
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The last instruction 17(2 GOTO 17(3 is inserted to keep the TRS-80 
from displaying 

READY 
> 

which would spoil the graph. To get out of this "tight loop", 
depress | BREAK] . 

Later, you can learn to make even fancier graphs that show the axes 
and units as well as the shape, but here we only introduce the basic idea. 

The following program displays a series of interesting graphs. 



IP CLS 

11H A=1+RND(S ) 

120 B=1+RND(S ) 

13(3 C=1+RND(S ) 

mp PRINT A,B,C 

150 FOR X=0 TO IE. 7 STEP -1 

lb0 Y=E5-5*(SIN(A*X) - SIN(B*X) + C0S(C*X)) 

17(3 SET(10*X,Y) 

175 FOR (3=1 TO 5(3 : NEXT Q 

1A0 NEXT X 

1% FOR a = 1 TO 500 : NEXT Q 

200 GOTO 100 

/yip REI1 ANOTHER "RANDOM ART" PROGRAH 
10 CLS 

IS FOR L=l TO 30 
100 FOR K=0 TO 15 
105 P=K*m + RNP(bM) -1 

110 PRINT @ P, CHR*(12fl+RNl>(b3)); 

1E0 NEXT K 
1E5 NEXT L 

130 FOR (3=1 TO =500 : NEXT (3 
mp GOTO ^0 



After you have RUN the program a few times, add 
115 PRINT @ RND( 1(323), CHR$(128+RND(63)); 
and RUN it again. 
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A ninth-grade student, Anthony Tipton, from Millwood High School, 
Oklahoma City, Oklahoma, produced the following rather interesting pro- 
gr am after reading a preliminary version of this chapter. 

^3 REM ANTHONY ». TIPTON 
S REM 171? NE SOTH 
7 REM 0KC,0K 73111 
T REM 427-0137 
^ CLS 

100 FOR Z=l TO 3 : CLS 

101 FOR X=0 TO 127 

102 Y=23 

103 SET(X,Y) 
H84 NEXT X 
10S FOR Y=0 TO 47 
10b X=fc,3 
107 SET(X,Y) 
10A NEXT Y 

170 FOR X- -t-3 TO b-2 STEP .05 

175 ON Z GOSUB 300, 400, 500 

1S0 Y= -Y 

]fl0 X1=X*10 : Y1=Y*5 

200 A=X1+L3 : B=Yl+23 

205 IF B<0 THEN 220 

20b IF B>47 THEN 220 

207 IF A>127 THEN 220 

20fl IF A<0 THEN 220 

210 SET(A,B) 

220 NEXT X 

230 NEXT Z 

250 GOTO ^ 

300 Y-SIN(X) 

301 PRINT @ fl%, "SINE"; 

302 RETURN 

400 Y=TAN(X) 

401 PRINT @ fi1b, "TANGENT"; 

402 RETURN 

500 Y=X*X -4 

501 PRINT @ Sib, "PARABOLA"; 

502 RETURN 



Sophisticated readers will see ways to speed up the program. However, it 
serves rather nicely at its current speed as a classroom demonstration 
illustrating how flat the sine curve is at max and min points, and how 
nearly linear where it crosses the x-axis, allowing for instructor com- 
ment on each curve. 
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SUMMARY OF LESSON 4 



Let's see what you have learned thus far... 



RND(0) Produces a random decimal value between and 1, not includ- 
ing endpoints. 

RND(n) Produces a random integer between 1 and n, including end- 
points . 

PRINT @ 96(3, "NEXT VALUE IS"; N Prints at the bottom of the screen 

(location 96(2). 



RUN 1400 
SET(X,Y) 
RESET(X,Y) 
P0INT(X,Y) 



ENTER 



Begins running a program at statement 1400. 

Turns on rectangle at point (X,Y). 

Turns off rectangle at point (X,Y). 

Tests point (X,Y) to see if it is lighted or not (very 
useful in some games ) . 



FOR Q = 1 TO 40(9 : NEXT Q 

PRINT CHR$(n) 

ON N GOTO a, b, c, ...,z 



The : separates different instructions 
on the same line. This particular line is 
a "time waster" to slow down the computer. 

Obtains the character or screen action de- 
signated by n. 

When N takes on the value k, then pro- 
gram branches to kP^ statement number in 
the list a, b, c, ...,z. (See Problem 11, 
Lesson 4 . ) 



Ivfostly, we have learned to use some different "graphic" capabilities of 
the conputer for fun and for work. 
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PRACTICE SESSION 4 



1. If you haven't tried a variation of the PRINT AT END( 1000 ) , "HI " 

program suggested, do so now. That is how you increase your under- 
standing of the BASIC language you are using. Try this one, too. 



NEU ENTER 



500 X=RND(12S) 

510 Y=RND(47) 

520 SET(X,Y) : SET(127-X,Y) 

53(3 IF RND(0)<.002 THEN CLS 

540 GOTO 500 

2. Try the "snowflake" program given in the text. 

T0 CLS 
100 X=RND(1E7) 
11(3 FOR Y-l TO 43+RM>(3) 
120 RESET(X,Y) : SET(X,Y+1) 
130 NEXT Y 

msa goto 100 

Then add 



1(35 T=RND(127) 
125 RESET(T,Y-1) 



Type LIST | ENTER 
Then, type RUN 



SET(T,Y) 

to see the new program. 
ENTERl to run it. 



3. Add a third snowflake to the extended program of Problem 2 by adding 
appropriate instructions in 106 and 126. Try your program out. 



4. Run the following program: 



NEU ENTER 



1(30 X=0 
110 Y=0 
120 SET(X,Y) 
130 X=X+1 
mja Y=Y+1 
170 GOTO 120 



SET(127-X,Y) 



If you are using Level I BASIC, it should fill the screen with dia- 
monds. 

If you are using Level II BASIC, the program will "bomb off" whenever 
Y>47 or X>127. This can be avoided by inserting: 

150 IF Y > 45 THEN Y-RND(10) 
lfe.0 IF X > 125 THEN X-RND(IS) 



Try it again! 
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5. Try the following program on your TRS-80. 



NEW 



ENTER 



10 CLS 
100 X-M+RND(12(J) 
110 Y=3+RND( L I0) 
120 SET(X+l,Y+2) 
130 SET(X-l.Y) : 
m0 SET(X+2,Y) : 
145 SET(X,Y-1) : 
1L.0 IF RND(0)<- 
S00 GOTO 100 

After it runs, try changing 160: 

lb0 IF RN]>(0)<-2 THEN CLS 

and then to 

lb0 IF RNI>(0)<.005 THEN CLS 



: SET(X,Y+2) 
SET(X-2,Y) 
SET(X+3,Y) 
SET(X+1,Y-1) 
.02 THEN CLS 



SET(X+1,Y+1) : SET(X,Y+1) 



Note,: The pftognxuni o£ Vnoblemk 5 
to 13 axe somewhat fietated and may 
be placed o n the T RS-80 without 
u&Iyiq NEW 1 ENTER I to iave, re- 
typing . 



6. Extend and modify the program of Problem 5 by adding: 



SET(12?-X,Y) 



170 IF RND(0)<-7 THEN 100 

200 X=0 

210 Y=0 

220 SET(X,Y) 

230 X=X+1 ■ 

235 IF X>120 THEN X=RND(L) I, 

240 Y=Y+1 

245 IF Y>45 THEN Y=RN»(S) 

210 IF RND(0)<.01 THEN 10 

300 GOTO 220 

7. Run the following program: 

1100 FOR X=32 TO 255 

1110 PRINT X, 

1120 FOR L=l TO 45 

1130 PRINT CHR*(X); 

1140 NEXT L 

1150 PRINT 

UL0 NEXT X 

Run the program a couple of times. 

lipp FOR X=S TO 35 

and RUN the new program. 



Type. RUN 200 | ENTER | . TkU will \ 
turn the. prognosis ^nom 100 on, to • 
cliecfe It out. kjten. It li> checked ■ 
out type RUN | ENTER | . ■ 



Then change statement 1100 to: 
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8. Try this program: 

b00 as 

L.10 K=32+RND(150) 

fc.20 PRINT @ RM>(1023), CHR$(K); 

b30 GOTO L.10 

After you have RUN the above program a few times, delete the semi- 
colon at the end of line 620 and RUN it again. Can you detect any 
difference? Why? 

After RUNning the revised program (without the ; ) add: 

L.15 IF RND(0) < .01 THEN PRINT @ RND(1000), "HI yovJt name. " ; 

and RUN it. 



9. Wasn't that fun! Now, try this one: 



S00 X=RND(125) 

510 Y=RM>(H?) 

520 SET(X,Y) : SET(127-X,Y) 

S30 IF RND(0)<.OD2 THEN CLS 

535 GOTO 500 



SET(X,4fl-Y) : SET(127-X,4fl-Y) 
[CompaJit tha> with Vnoblum I.) 



10. Here's another goodie. 

FOR LEVEL II 

700 FOR fl-1 TO 200 : NEXT a : 

710 FOR X=1S3L,0 TO 1L.3A3 

720 POKE X.lll 

730 NEXT X 

7L0 RESET(RND(124)+1, RND(40)+2) 

770 IF RND(0)<.001 THEN 700 

7S0 GOTO 7t,0 

FOR LEVEL I 



CLS 



700 FOR (2=1 TO 200 : NEXT (3 : 

710 FOR Y=0 TO 47 

712 FOR X=0 TO 125 STEP 2 

720 SET(X,Y) : SET(X+1,Y) 

730 NEXT X 

740 NEXT Y 

7b0 RESET(RN»(124)+1, RND(40)+2) 

770 IF RND(0)<.001 THEN 700 

7fi0 GOTO 7b0 



CLS 
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11. The following knits together the four separate programs which we 
tested in Problems 5, 6, 9, and 10. In each case, the individual 
programs have been modified to send control to instruction 8(3(3 every 
once in a while. Instruction 800 then sends control, at random, to 
one of the subprograms beginning at instruction 90, 100, 200, 500, 
700, 200, 500, 100. 



5 T-.01 
1(3 DEFINT X,Y 
JiU FOR (3=1 TO E 

100 X=4+RND(120) 
110 Y=3+RM>(40) 
120 SET(X+l,Y+2) 
130 SET(X-l.Y) 
140 SET(X+2,Y) 
ms SET(X,Y-1) 
1L.0 IF RND(0)< 



{Omit tkU iHAtfiuction on Ltvtl I BASIC. 
NEXT Q : CLS 



SET(X,Y+2) 
SET(X-2,Y) 
SET(X+3,Y) 
SET(X+1,Y-1) 
02 THEN CLS 



SET(X+1,Y+1) : SET(X,Y+1) 



SET(X,4fl-Y) : SET(127-X,4fl-Y) 



170 IF RND(0)<-7 THEN 100 
1A0 IF RND(0)<T THEN B00 

200 X=0 

210 Y=0 

220 SET(X,Y) : SET(127-X,Y) 

230 X=X+1 

235 IF X>12D THEN X=RND(b) 

Ema y=y+i 

245 IF Y>45 THEN Y=RND(5) 
2^5 IF RND(0)<T THEN fi00 
300 GOTO 220 

500 X=RND(12S) 

510 Y=RND(47) 

520 SET(X,Y) : SET(127-X,Y) 

530 IF RN»(0)<.002 THEN CLS 

535 IF RND(0)<T THEN fl00 

700 FOR (2=1 TO 200 : NEXT (2 : CLS 

710 FOR X=153L0 TO 1L3S3 

720 POKE X,ni 

730 NEXT X 

7b0 RESET(RND(124)+1, RND(40)+2) 

770 IF RND(0)<-0001 THEN % 

775 IF RND(0)<-1*T THEN CLS : GOTO 

7A0 GOTO 7L0 

fi00 ON RND(fl) GOTO 10, 100, 200, 500, 700, 200, 500, 100 

Instruction 

800 ON HND(8) GOTO 90, 100, 200, 500, 700, 200, 500, 100 

sends the program to the n th instruction in the list 90, 100, 200, 
500, 700, 200, 500, 100, depending upon the value of RND(8) which 
must be one of n = 1,2,3,4,5,6,7,8. 



On lavtl I BASIC o6e: 



712 

730 
[740 



FOR y=0 TO 47 
FOR X=0 TO 
SET{K,y) 
NEXT X 

WEXT V 



725 STEP 2 

: SET{K+l,y) 
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12. 

3^(3 CLS 

■400 X=30+RND(L5) : Y=10+RN»(2fl) 

Mid SET(X,Y) : SET(12b-X,Y) 

mi SET(X,Mb-Y) : SET(12b-X,Mb-Y) 

mS X=X+RND(3)-2 

•420 X=X+RND(3)-2 

M30 IF X>125 THEN X= 15S 

M3S IF X<1 THEN X=l 

141453 Y=Y+RND(3)-2 

^^B if y<i then y=i 

H50 IF Y>HS THEN Y=MS 

MSI IF RN»(0)<-EZI0 c: ] THEN FOR fl-1 TO S00 : NEXT (3 : CLS : GOTO m0 

HS3 IF RND(0)<-01 THEN H(30 

HSS IF POINT(X,Y) THEN RESET(X,Y) : RESET (12b-X,Y) : GOTO ms 

Ht0 goto ma 

Try the above program on your TRS-80. After you have enjoyed it a 
bit, undertake the following modifications. Is the design symmetric 
right to left? Is it symmetric top to bottom? 

Add the following instruction: 

M13 FOR (3=1 TO 200 : NEXT (3 

which does nothing but slow down the action by forcing the computer 
to count to 200 each time it passes instruction 413. Run the above a 
bit before continuing. ..so you can follow the action in slow motion. 

Try changing the .01 in instruction 453 to .05 and see how the pat- 
tern is affected. 

Can you combine the result of instructions 415 and 420 into one in- 
struction? Do so. (Note: Although the instructions appear identi- 
cal, the values of X on which they work are not, so be careful.) 

13. Modify the program of Problem 11 to also include the "Art" program of 
Problem 12, or your modification thereof. 

14. Write an ART program of your own. 

15. Write a program using the PRINT CHR$( ) instruction in some way. 

16. Write a program to display an 8 by 8 chessboard (with black and 
white squares). 

17. Write some programs of your own choice. You really do have the in- 
structions needed for most programs. 
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18. Write a program that begins 

100 X=RND(5!2) : Y=RND(20) : L=RND(15) 

and will then draw a square having upper left-hand corner (X,Y) and 
length of side L t/-units. When your program is running well, 

enclose it in a K3R_ NEXT loop so the program draws from 6 to 10 

squares. A possible over-program might be: 

id CLS 

Ed Z=RN»(5) 

3d FOR K-l TO (5*Z) 

100 X=RND(S0) : Y=RND(20) : L-RND(IS) 

VouA iquajiz-d/taiM-ing pfiogsiam hext. 

500 NEXT K 

510 FOR 12=1 TO fl00 : NEXT (2 

520 GOTO 10 

19. Write a program to draw a design of your choice: stairstep, circle, 
tree, box, face, robot, or whatever turns you on. However, choose 
your design first , then try to approximate it on the computer. 

20. Make a bar graph showing data of your choice for several years. 
Note : scale your data so the longest bar ends before X = 125 . 

21. Make a cartoon of a dog that wags its tail on the display screen. 

22. Make a smiling clown face on the display screen. Then expand your 
program so the clown winks or cries or talks or something that in- 
volves picture movement. 

23. Create an animated "stick person" who walks across the screen, bows, 
and then continues walking offscreen. 

24. Investigate some commercially available program that uses animation. 
Some possibilities are: 

Dancing Demon 

Life (Conway's simulation of cell growth) 

Android Nim 

Star Wars 

Chess programs 

See almost any of the magazines listed in Lesson 15 or consult your 
local computer store or Radio Shack. 
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LESSON 5 

Micro-Research 
Problems 







MICRO RESEARCH PROBLEMS 

In Lesson 3, the number 30 Challenge Problem asks: 

"The song 'Twelve Days of Christmas" mentions various gifts that 
'my true love gave to me. ' Let's interpret the song so that 
'on the third day of Christmas, my true love gave to me 

Three French hens 

Two turtle doves 

And a partridge in a pear tree . ' 

My true love gave me six presents (3 French hens, 2 turtle doves, 
and 1 partridge, if we don't count the pear tree as a gift). How 
many gifts in total did my true love give to me during the twelve 
days of Christmas? Write a program to determine the sum. 
Answer: 364, if you do not count the pear tree as a gift." 

A student submitted the following program in response to Challenge Pro- 
blem 30. It does not produce the correct answer because the student 
has violated a very fundamental programming rule. Can you find the error 
and correct it? 

5 CLS 

10 s=o 

20 FOR K= 1 TO 12 

3(3 S = S+K 

4<p PRINT K; 

5(2 IF K=l THEN 9(3 

60 K=K-1 

70 GOTO 30 

9J3 PRINT " "; S 
10(3 NEXT K 
110 PRINT " TOTAL="; S 

Before you continue, see what you can do to help our slipshod student. 
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The basic principle our slipshod student violated is. 

«a a a* »■ lainian ■■■■giDiDiniiiiaaiaiiiitttniiiM 

'• : 

I Do NOT change a FOR. . .NEXT variable ; 

a 

i inside of the FOR. . .NEXT loop . 



If you look at the output from the program on the previous page 



1 




1 


2 


1 


4 


2 


1 


7 


2 


1 


10 


2 


1 


13 


2 


1 


16 
etc. 



since the first column in each line (separated by ; spacing) presumably 
contains the K values and the right most values (separated by > spacing) 
give the current S values, it is apparent that K is not taking on the 
values from 1 to 12 as might be expected in FOR K= 1 TO 12. 

Indeed, the program blunder (changing the value of K inside the 
FOR. • .NEXT loop) forces K back to K=l by the end of each loop, so the 
new K value, namely K+l, is always K=2. Live and learn. 

If you haven't worked on this Challenge Problem, you should before 
continuing. It is possible to make the "blunder" into a valid running 
program merely by changing instructions 20 and 10(3 and adding an in- 
struction 25. See if you can do so before continuing. 
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Here is our new program, with new instructions at 20, 25, and 100 
as indicated. 

5 CLS 

10 S=0 

»- 20 FOR L = 1 TO 12 

>- 25 K = L 

30 S = S+K 

40 PRINT K; 

50 IF K = 1 THEN 90 

60 K = K-l 

70 GOTO 30 

90 PRINT " ";S 

► 100 NEXT L 

110 PRINT " TOTAL=";S 

This produces the reasonably understandable output 
RUN 



1 1 












2 1 


4 










3 2 


1 


10 








4 3 


2 


1 


20 






5 4 


3 


2 


1 


35 




6 5 


4 


3 


2 


1 


56 


7 6 


5 


4 


3 


2 


1 84 


8 7 


6 


5 


4 


3 


2 1 120 


9 8 


7 


6 


5 


4 


3 2 1 165 


10 9 


8 


7 


6 


5 


4 3 2 1 220 


11 10 


9 


8 


7 


6 


5 4 3 2 1 286 


12 11 


10 


9 


8 


7 


6 5 4 3 2 1 364 


TOTAL 


= 364 








READY 












> 













Mathematicians might use the Greek symbol sigma, I, to indicate the 
sum and express this problem as 

12 



<fi ft 

L=l 




Would the program listed on the following page achieve the same result? 
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200 


SL = 


210 


FOR L = 1 TO 12 


220 


SK = 


230 


FOR K = 1 TO L 


240 


PRINT K; 


250 


SK = SK + K 


260 


NEXT K 


270 


PRINT " "; SK 


280 


SL = SL + SK 


290 


NEXT L 


300 


PRINT " TOTALf" 



SL 



Don't type. NEW. JuAt Atciht tlvli 
ph.ogtwm beyond wheJte the. facte t 
ph.OQK.am ended, &o you. can hun 
eJjthth. one by uAlng: 

RUN I ENTER | 



BREAK 



oh 



RUN 



IENTER 



oh. get both, by mexety typing 
RUN [ENTER] 



The final total is the same in each case (TOTAL =364) but the in- 
termediate sums (at the extreme right of each line) are quite different. 

Htrrrm? How would you change the second program to get it to mimic the 
output of the first program? Well, we want line 



270 PRINT " 
Let's change 270 to 

270 PRINT " 
and rerun it. 



SK to print the value of SL instead of SK. 



SL 



At first, that may look better, but a little more careful examination 
shows that this revision of the second program produces a running 
(cumnulative) sum that is always one line late. Hmm? 



If we interchange instructions 
270 and 280, giving 



200 


SL = 


210 


FOR L = 1 TO 12 


220 


SK = 


230 


FOR K = 1 TO L 


240 


PRINT K; 


250 


SK = SK + K 


260 


NEXT K 


270 


SL = SL + SK 


280 


PRINT " "; SL 


290 


NEXT L 


300 


PRINT " TOTAL="; SL 




This program should now produce the same result as the program on the 
previous page. Ebes it? Yes, it does. Frankly, I prefer the program at 
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the top of the previous page that lists the number of gifts each day on 
the right edge, rather than the running total. 

Actually, that problem is simple enough so that we could have com- 
puted the result without using a computer. . .but since a computer was read- 
ily available, it may have been easier to use the computer. Or it would 
have been, if we hadn't made so many foolish blunders in our program. 
However , correcting blunders is one way to learn to write blunder- free 
programs . 

Let us turn our attention to some problems that are not easy to 
solve without a computer. The term micro-research problems seems approp- 
riate for problems that are not to be found in most text books. The 
easiest way to find the answer to a micro-research problem may well be 
to solve it for yourself. Interestingly, you do have enough mathematical 
and computer programming ability, so that with the help of a TRS-80 micro 
computer, you can solve many problems that would have been beyond your 
ability and/ or patience five lessons ago. 

Let's get going! 

Now that you can use your computer to solve a really difficult 
problem (obtaining roots of messy equations, Lesson 3) and have fun 
using the graphics capability of your TRS-80 (Lesson 4), it is time to 
think about some interesting micro-research problems on which you can 
expect to make reasonable progress using your computer. We shall walk 
through the solution of one quite difficult micro-research problem in 
detail - but you may wish to solve it yourself before reading on. 

Problem : 

Rnd perfect square integers like 5776 which have 
the property that they end in their square roots. / 5776 = 76 

Admittedly, this problem is not earthshaking, but it would not be very 
easy to solve without a computer. Try it yourself before continuing, 
with or without a computer. 
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STEPS FOR COMPUTER-ASSISTED PROBLEM SOLVING 



Successful problem solving is apt to involve several quite different 
stages. Here is a series of steps that is sincerely recoinasnded. 



1. Be sure you understand the problem. Try to restate it in 
several ways. Then try to find a general method (algorithm) for 
solving the problem. 

2. Examine a simple special case first. 

3. Then, if it seems appropriate, program a computer to examine 
another special case. 

4. Ifadify your computer program to examine a different special 
case. 

5. Modify and generalize your computer program. Include tests to 
be sure the program is working as expected. 

6. Run the new program and examine the output. 

7. Now re-examine the output. Use your common sense and mathemat- 
ical acumen to see if you can devise a better (faster and/or safer) 
algorithm or prove a theorem that will help solve the problem, unless 
it is already solved. 

8. Go back to step 5, if the original problem has not yet been 
solved to your satisfaction. 



This seems rather round-about at first, but experienced computer 
problem-solvers have found it is a much better technique than the usual 
technique of the amateur, who tries to start by writing the final pro- 
gram, or at least with the program of steps 5 and 6 right away. This 
is fine on trivial problems, but on more difficult problems it is really 
better to start easy and work up gradually, testing each stage. 
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Try it on our problem. 

1. Be sure you understand the problem . Try to restate it. 
Original Problem 

Find perfect square integers like 5776 which have the property 
that they end in their square roots. /~577S = 76 

Restated Problem (same problem, but from another viewpoint ) 

Find non-negative integers N such that N 2 ends in N. 

Find integers NiO such that their squares S = N 2 end in the 

digits of N. 

The first technique (algorithm) that suggests itself may well be 
just to examine S = N 2 for each N and determine whether or not 
S = N 2 ends in N. Later you may be able to devise a better 
algorithm. 

2. Examine a simple special case first . 

In attempting to solve any problem, it is well to examine 
several special cases before plunging in. 

N(3123456789 



N z p 1 4 9 16 25 36 49 64 81 

So the one-digit numbers N whose squares end in N are N = (3,1,5,6. 

3. Write a computer program to examine another special case . 

Let us write a program that will find the three-digit numbers 
N whose squares end in N. The last sentence displays two rather 
important problem-solving techniques: 

1. In computing, it frequently pays to rephrase a question by 
turning it around a bit. 

2. It is often helpful to examine a special case (here the 3-digit 
case) of a more general problem. 

You may wish to try writing such a program yourself before 
continuing. 

If you wish to examine the last 3 digits of a number S, then you 
need to devise a technique of finding the last 3 digits of a longer 
number. There is an easy way to do it using the INT ( ) function. 

INT ( ) produces the integer portion of the value inside of the 
parentheses. Thus, INT (34.761) = 34. 
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The instruction 

T = S - 1000*INT (S/ 10(30) 

will produce the last three digits of S and store them as T. If this 
is not obvious, try it for 2 or 3 integral values of S. 

For example: S = 123456 

S/1000 = 123.456 

INT(S/1000) = 123 

1000*INT(S/1000) = 123000 

S - 1000*INT(S/1000) = 123456 - 123000 = 456 

Using this instruction, see if you can devise the desired program your- 
self. 



A program to examine the 3-digit numbers N such that S = N*N ends 
in N: 

100 K)R N = 101 TO 999 

110 S = N*N 

120 T = S - 1000*INT(S/1000) 

130 IF N<>T THEN 200 

140 PRINT S;N 

200 NEXT N 

You may wish to run the above program before continuing. 

The results are: 

141376 376 

390625 625 

4. Modify your program to examine other special cases . 

Can you change the program to also obtain the 1-digit values 
of N whose squares end in N? — namely, 0,1,5,6 as we saw when 
we worked the problem by hand? 

Of course, you can. Merely change instruction, 

100 FOR N = 101 To 999 100 FOR N = TO 9 

and to 

120 T = S - 1000*INT(S/1000) 120 T = S - 10*INT(S/10) 

and RUN the program. 
Try it yourself. 

What changes would you make in the program to obtain the 2-digit 
values of N such that S = N 2 ends in the digits of N? 
Please do so before continuing. 
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Although our current attack is clumsy, even a clumsy attack is 
often better than no attack at all. Let us now try to produce a 
program which will do the modifi cations for us. This is unnecessary in 
this particular problem, since the modifications are easily done, but 
we may learn some useful tricks along the way. Examine the following 
program and be sure you see how it works before running it. 

5. Generalize your computer program to examine several cases using 
the same program . 
Our new fundamental program: 



[wkzfie. V Jj> the. -LtvttgeJi 1, iollomzd 
by en many ztnoi, ai> tkttt axe. (HqaM> 
In M ) 



10 INPUT P 

100 EDR N = l+P/10 TO P-l 
IIP S=N*N 

120 T=S-P*INT(S/P) 

130 IF NOT THEN 200 

140 PRINT S;N 

200 NEXT N 

The program seems to work well. If there is a way to change P from 10 to 
100 to 1000 etc. as the program goes along, you could then use a slight 
modification of the old program. Try it yourself before continuing. 

In any event, the modified program given below sounds as if it 
would work: 

10 P=10 

100 TOR N = 1 + P/10 TO P-l 
110 S=N*N 

120 T=S-P*INT(S/P) 

130 IF N<>T THEN 200 

140 PRINT S;N 

200 NEXT N 

210 P = P*10 

220 GOTO 100 



Try it... it works! Well, it works for a while anyway. 
It really does need two more instructions 



90 PRINT "NOW WORKING ON N<" ; P 



Also change 220 GOTO 90. 



This will tell you the general range of N-vaiues on which the program 
is working. If it gets stuck, you at least know where. It will also 
give you estimates on how long it takes for each set of k-digit N values, 
for k = 1,2,3,.... Common sense suggests 3-digit numbers should take 
about 10 times as long as 2-dlgit numbers, since there are 10 times as 
many of them. 
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Remember to include another important check. 
Any computer has numbers S so large it can- 
not tell S from S+l. If a computer carries 

only six digits of accuracy, for example, "* ■— ~> 

and S is a 7-digit number, say ^1 \ 

(True S) = 7654321 ' Ycmi-t 

The computer shows this as 7.65432E+06, jHHHHUurfNci/uH 

which is read 7.65432 *10 6 or >£Jy- 

7654320. Now (True S+l) = 7654322. 'S^^S^Tr^* 

However, if your computer stores only ~ a"*"" 

six decimal digits of accuracy, then < s»»PWf" ,i, T^ *~ -__ 

S+l = 7.654322 *l(fi -~ ~~~~'~~ 

which is chopped off (or possibly rounded) 
to six significant digits, giving 

7.65432E + 06 
which is precisely what you had for S. 
Thus, the computer cannot distinguish 
between S and S+l. 

In this case, the final digit of S is no longer known. The computer 
substitutes zero for it, and cannot tell if S ends in the sane digits as 
does N. Surely, you wish your program to STOP automatically if such a 
crisis should arise (and it does, inevitably ), 

Do this by inserting the instruction 

115 IF S=S+1 THEN PRINT "OVERFLOW ERROR ON S,N="; S;N : STOP 

.If the computer cannot distinguish between S and S+l, it will print 
the requested message and then STOP. Otherwise, the program will ignore 
instruction 115 and pass on to the next instruction. 

The expanded program now reads: 

10 P = 10 

90 PRINT " NOW WORKING ON N< " ; P 
100 FOR N = 1 + P/10 TO P-l 

110 S = N*N 

115 IF S = S+l THEN PRINT "OVERFLOW ERROR ON S,N="; S;N : STOP 

120 T = S-P*INT(S/P) 

130 IF N<>T THEN 200 

140 PRINT S;N 

200 NEXT N 

210 P=P*10 

220 GOTO 90 

Let's return to "Steps for Computer-Assisted Problem Solving". 
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6* Run the general program and examine the output . 

Give it a try on your own computer before continuing. 
The output is: 

LEVEL II BASIC LEVEL I BASIC 



NOW WORKING ON N<10 


25 


5 


36 


6 


NOW WORKING ON N<100 


625 


25 


5776 


76 


NOW WORKING ON N<1000 


141376 


376 


390625 


625 


NOW WORKING ON N<10000 



OVERFLOW ERB3R ON S,N = 3.35588E+07 

5793 

BREAK IN 115 

Notice., ouA pKOQfmm "bombed o£&" cut 
P=10000 with S,N= 3.35588E+07, 5793 
cu> a. tuzAuJLZ o{, the. tet>t In In&hiuc- 
tton 115. 



NOW WORKING ON N- 


cip 


25 


5 




36 


6 




NOW WORKING ON N- 


=100 


625 


25 




5776 


76 




NOW WORKING ON N< 100(3 


141376 


376 




390625 


625 




NOW WORKING ON N< 


=10000 



OVERFLOW ERROR ON S,N = 1.67772E+07 

4096 



Notice, ovJt pHjOQham "bombed o^" at 
?=10000 with S,N = 1.67772E+07, 
4096 oa a. JteAulX oi the teAt In 
Ini&iuctlon 115. 



This seems to reach the limits of exploration using LEVEL I BASIC 
unless we are willing to construct our own special "multiple precision" 
routines . 
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It is time to consider a new concept in computing: 
DOUBLE PRECISION ARITHMETIC . 

If you have LEVEL II BASIC on your TRS-80, you can also investigate 
the problem for 4-digit and 5-digit values on N (which produce 8 and 10- 
digit values of S) by including the instruction 

5 DEFDBL S,P {which it> mad "Pe^ne double,".) 

which produces double length (16-digit) values for any variable beginning 
with S or P. (Maybe we can even run the program for 6,7, and 8-digit 
N-values which have 12,14, and 16-digit squares — wait and see.) 

However, troubles appear: 

The TRS-80 does not produce a double length product if single length 
numbers are multiplied together. Thus S = N*N will not produce a valid 
8-digit square, if N is a single precision 4-digit number 

For N = 9376 (TRUE S) = N 2 = 87909376 

However, the computer rounds this to six digits and produces 

N*N = 8.79094E + 07 

which is stored in S as 879(39400, rather than the correct value, 
87909376. 

The "obvious" solution is to make all three of S,P, and N double 
precision by using 

5 DEFDBL S,P,N 

However, the 

K)R N = 1 + P/10 TO P-l 

instruction will not accept a double precision variable for N. 

This is easily fixed by using 

100 N = l+P/10 100 EOR N = l+P/10 TO P-l 

130 IF N<>T THEN 150 in place of 130 IF N<>T THEN 200 

150 N = N+l 

200 IF N<P THEN 110 200 NEXT N 
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The program now reads: 



{Mote. -H COMMENTS 



5 


EEFDBL S,P,N 5 


10 


P = 10 


90 


PRINT " NOW lORKING ON N<";P 10 


100 


N = 1 + P/10 


110 


S = N*N 


115 


IF S = S+l THEN PRINT "OVERFLOW 90 




ERROR ON S,N="; S; N:STOP 


120 


T = S - P*INT(S/P) 


130 


IF NoT THEN 150 


140 


PRINT S;N 115 


150 


N = N + 1 


200 


IF N<P THEN 110 


210 


P = P*10 


215 


PRINT 


220 


GOTO 90 210 



220 



Quit instruction 5 if you are 
using LEVEL I BASIC. 
The number of zeros in the 
current value of P is the num- 
ber of digits in N. 
It is good practice in a pro- 
gram whose output may be scarce 
to include a statement display- 
ing what the program is doing. 
This is a necessary precaution, 
when the computer cannot tell 
the difference between S and 
S+l, the program will STOP and 
so indicate on the screen. 
Changes P to the next higher 
power of 10. 

Repeats program with new P 
value . 



The output is: 
Level II BASIC 



Level I BASIC 
(omitting instruction 5) 



NOW WORKING ON N 


<10 


NOW WORKING ON N< 10 


25 5 
36 6 




25 5 
36 6 


NOW WORKING ON N 


<100 


NOW WORKING ON N <100 


625 25 
5776 76 




625 25 

5776 76 


NOW WORKING ON N 


<1000 


NOW WORKING ON N <1000 


141376 376 
390625 625 




141376 376 
390625 625 


NOW WORKING ON N 


< 10000 


NOW WORKING ON N < 10000 


87909376 9376 
NOW WORKING ON N 


< 100000 


OVERFLOW ERROR ON S,N 1.67772E+07 

4096 


8212890625 90625 







NOW WORKING ON N < 1000000 

11963109376 109376 
793212890625 890625 



etc. 
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You will notice that for each new P value, it requires ten times 
as much computer time as for the previous P value. 
Run the program again and time it. 



Level II BASIC 

Your program did not "bomb out" 
like Level I did. But it sure can 
use up lots and lots of computing 
time, 
lb get from 



P=100 to P=1000 



took about 1.5 
minutes 



P=1000 
P= 1000(2) 



P=10000 
P=100000 



Level I BASIC 

You were stopped during 

P=10000 
at which time the instruction 

115 IF S=S+1 THEN PRINT "OVERFLOW 
ERROR ON S,N=";S;N:STOP 

halted the run. You may wish to 



"" 15 minutes delete instruction 115 and rerun 
"" 2.5 hours the program to see what happens. 



If you let your TRS-80 run another 
24 or 48 hours, from P=100000 to P= 
1000000, you will also find 



11963109376 
793212890625 



109376 

890625 



Remember you can always s top the 
program by depressing [ BREAK! 
You may then learn the values it 
was working on by typing 



PRINT P,N,S,S+1 IENTERI 



and who knows what else??? 



NOW IS THE TIME FOR US TO GET SMART. 



This program really works the problem in a very crude brute-force way. 
We are just examining every number, N. The number of numbers to be exam- 
ined increases sharply as P increases. 





No. of cases 


Approximate time 


1 < P <10 


8 


Less than 1 second 


10 < P <100 


88 


9 sec 


100 < P <1000 


898 


90 sec =1.5 min. 


1000 < P <10000 


8998 


15 min. 


10000 < P < 100000 


89998 


150 min = 2.1 


100000 < P <1000000 


899998 


24 hr. 


.000000 < P < 10000000 


8999998 


9 or 10 days 



Clearly we can reasonably expect to examine P < 10, 100, 1000, 10000, 
and even 100000, but after that, the computer time involved becomes 
exorbitant. Of course, you may reason that the TRS-80 might just as well 
be working on your problem as be sitting idle. It takes very little 
power. (It uses about as much power as a small light bulb, if you turn of f 
the CRT display tube, which you might as well do if you are not watching 
it. You can turn it on and recapture whatever would have been on the 
screen at that moment. The computer continues to compute even when the 
display tube is turned off . ) 
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Returning to our "Steps for Computer-Assisted Problem Solving", 

7. Re-examine the output . Use your conmon sense and mathematical 
knowledge to devise a better (faster) algorithm to help solve the 
problem. 

We really should have recognized at the beginning that N 2 must end 
in 0, 1, 5, or 6 if N 2 ends in N. This would have saved almost 60% of 
our computing time. Actually if N>9, then N cannot end in since then 
N 2 would end in 00, etc. Sirnilarily if N>9, N cannot end in kl since 
then N 2 would end in (2k) 1 since (10k+l) 2 = 100k 2 + 20k+l. Similar math- 
ematical arguments show that if N >9 and if N 2 ends in N, then N ends in 
5 or 6. So instead of increasing N by 1 each time we can jump by 10 and 
test both N and (N+l) to see if either has the desired property. The 
following program will cut 80% of our running time— doing an hour's 
testing in 12 minutes. 





:.■:■■:■:}■:■ 0iJ * RE cleverT) 




■■■ '■'V;i;v : '"' ; '. i this will cur / 

J. ' WORKLOAD^/ 






^^^^^^fc £ .__ _ 


5 


EEFDBL S,P,N 


10 


P=10 


90 


PRINT "NOW WORKING ON N<";P 


100 


N = 5 + INT(P/100)*1O 


110 


S = N*N 


115 


IF S = S + 1 THEN PRINT "OVERFLOW ERROR ON S, N =" S;N:ST0P 


120 


T = S - P*INT(S/P) 


130 


IF N <>T THEN 150 


140 


PRINT S;N 


150 


Nl = N+l 


152 


SI = N1*N1 


154 


Tl = SI - P*INT(S1/P) 


156 


IF Nl <> Tl THEN 160 


158 


PRINT S1;N1 


160 


N=N+10 


200 


IF N <P THEN 110 


210 


P = 10*P 


215 


PRINT 


220 


GOTO 90 



Try it. It works, and we really might have been smart enough to have 
thought of discarding 80% of our unsuccessful cases in the beginning. 
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However — now that we have some output to look at, it may be possible 
to find an even more clever way to speed up our program. Look at the 
output. Do you notice anything special? 

N^ | N 

25 5 

36 6 

625 25 

5776 76 

141376 376 

390625 625 

87909376 9376 

8212890625 90625 

11963109376 109376 

793212890625 890625 

Two items demand our attention: 

I. When we investigated the one-digit N's by hand and on the first pro- 
gram (modified to numbers from to 9), we found 

N 2 N 



1 1 
25 5 
36 6 

but our current computer program missed the first two values 0, 1. 
Just why did that happen, and do you think that it missed any 
other values between P = 10 and P = 1000000? Are You Sure? 

We did obtain all the values between P = 10 and P = 1000000, but 
did miss N = and 1 because this program did not test N = or N = 1, 
since it started at N = P/10 + 1 for P = 10 which is 2. 

If you didn't notice that earlier, you need more computing experience 
before you can be considered a qualified amateur. 

II. Notice: The only large values of N such that N 2 ended in N were 
values of N that themselves ended in those exact digits for which 
we found some previous satisfactory N . Now that may be a real 
clue! 
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Consider the case starting at P=1000. We found 

N 2 N 



141376 376 

39)0625 625 

It seems reasonable to believe that any 4-digit value of N whose square 
ends in, N will have the value of N itself ending in either 376 or 
625 since otherwise, N 2 would not end in N. Hnran. Well, yes — that 
seems reasonable. 

However, some things that "seem reasonable" turn out not to be 
true. For example, one of my students extended the above conjecture 
by asserting, "Since there is only one 4-digit value of N such that N 2 
ends in N, there can be only one such N having k digits for any k>4." 

However , 

N = 109376 N 2 = 11963109376 

N = 890625 N 2 = 793212890625 

blows that "reasonable conjecture". 

(Why?) Well, because the student didn't recognize that the six-digit 
109376 was a suitable extension of the four-digit N = 9376 under our 
original guess, with as the fifth digit. Hrmm. 

Well, how about the original guess? If we could show that 



Conjecture 

If a given N 2 ends in the digits N >_10, then N itself must 
end in the same digits as some smaller such N. 

Not yet proved. 



Would it be helpful in our search? 

Well, you just bet it would be! 

For example, in examining the 5-digit N values instead of examining 89998 
cases, we would only need to examine the 20 cases X9376, X0625 (and 
possibly the 10 more cases X0376 unless we can show that is also impos- 
sible which we can ) . 

I'm not going to prove the conjecture — but it is true. 
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To cut down from 89998 cases to 20 
cases for the 5-digit N values is a 
savings of 99.98% of the numbers to be 
tested. The 6-digit values produce 
even greater savings . What would for- 
merly have taken twenty-five hours 
should now run in less than a minute, 
even if each number evaluated took 
several times as long to test (since 
the program may be messier than before). 
That is indeed a worthwhile savings. 
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For now let us assume the slightly stronger result : 



1 If ST ends in N, then N ends in the digits of some smaller K 
: such that 1ST ends in K. Furthermore , the previous K will be 
■ a K with one fewer digit than N, with the possibility of lead- 

■ 

; ing zeros on a smaller K such as 9i6625 being the N for K = 

! (6625, K 2 = 39(625. 

! i ■■■■■■ ■«■■ ■■ •»■" ■ «■■ ■■ 

Let ' s start our program with 3-digit N values . This will enable us to 
test the program and see if it is running as we believe it should. 

Store the "last two successful values of N" that we are trying to extend 
in locations A and B. Starting with the 3-digit values of N, there will 
be 



P = 1000 
A = 25 
B = 76 



(since when N = 25, n| = 625) 
(since when N = 76, W = 5776) 



to properly "seed" our program with the successful 2-digit values to be 
extended. 

Continuing with "Steps for Computer-Assisted Problem Solving," we find: 
8. Go back to step 5 . 

5. Modify and generalize your computer program . Include tests to be 
sure the program is working as expected. 
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6. Run the new program and examine the output . 

The following program seems to produce the desired results in 
moderate time. Study it until you understand it well enough to 
explain it to one of your classmates who needs help. 

5 DEEDBL S,P,N,A,B [Omit 5 l{ w&lng LEVEL I BASIC.) 

10 P=1000 

20 A=25 

30 B=76 

90 PRINT " WORKING ON N < " ; P 

95 Q=P/10 

99 REM THIS BLOCK EXTENDS A VALUE 

100 FOR K=l TO 9 

105 N = K*Q + A 

110 S = N*N 

115 IF S=S+1 THEN PRINT "OVERFLOW ERROR ON S,N = ";S;N: STOP 

120 T = S - P*INT(S/P) 

130 IF NoT THEN 200 

140 PRINT S;N 

150 A=N 

160 GOTO 300 

200 NEXT K 

210 REM END OF BLOCK THAT EXTENDS A VALUE 

250 REM 

299 REM THIS BLOCK EXTENDS B VALUE 

300 FOR K=l TO 9 
305 N = K*Q + B 
310 S = N*N 

320 T = S - P*INT(S/P) 

330 IF NoT THEN 400 

340 PRINT S;N 

350 B=N 

360 GOTO 500 

400 NEXT K 

401 REM END OF BLOCK THAT EXTENDS B VALUE 

450 REM 

500 P = P*10 

520 GOTO 90 



Put it on your computer and see how it runs. 
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Output from Level II BASIC 

WORKING ON N < 1000 

390625 625 

141376 376 

WORKING ON N < 10000 

87909376 9376 

WORKING ON N < 100000 

8212890625 90625 

WORKING ON N < 1000000 
793212890625 890625 
11963109376 109376 

WORKING ON N < 10000000 
8355712890625 2890625 
50543227109376 7109376 

WORKING ON N < 100000000 
166168212890625 12890625 
7588043387109376 87109376 

WORKING ON N < 1000000000 
OVERFLOW ERROR ON S,N =1.704786682128906D+17 412890625 

BREAK IN 115 

READY 
>_ 

Output from Level I BASIC 

WORKING ON N < 1000 

390625 625 

141376 376 

WORKING ON N < 10000 
OVERFLOW ERROR ON S,N = 2.13906E + 07 4625 

Now we need to ask if the original problem has been solved. 

If it was to find all perfect squares N 2 such that N 2 ends in the N, 
then it is only partially solved. The program found all such N< 412890625 
but there is no reason to suspect that is all there are. There is also 
the possibility our program may be defective and may have overlooked some 
N values less than 10 9 (After all - we did overlook and 1 - remember?). 

This is one way research is done. First, investigate a few special 
cases. Next, use a simple program to investigate a few more cases. If 
the results seem worthwhile, automate your program and let it run a bit. 
Next, examine the output, make some conjectures and prove or disprove 
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their validity. Then, devise a new technique (algorithm) for carrying 
out the investigation and implement it. 

Now you are ready to try to prove the most general case. It may or 
may not yield to your effort - but in any case, you have a pocketful of 
results that were previously unknown. We shall not attempt to go further 
here, but strongly suspect some able student will do so. 

There is one additional check that should be made. 

Did our last two programs produce the same results as far as they 
overlapped? If not, why not? This is important. 

The two programs are: 

Program from page 89 

5 DEFDBL S,P,N 

10 P = 10 

90 PRINT "NOW WORKING ON N<";P 

100 N = 1 + P/10 

110 S = N*N 

115 IF S = S+l THEN PRINT "OVERFLOW 

ERROR ON S,N=";S;N:STOP 

120 T = S - P*INT(S/P) 

130 IF NoT THEN 150 

140 PRINT S;N 

150 N = N + 1 

200 IF N<P THEN 110 

210 P = P*10 

215 PRINT 

220 GOTO 90 

RUN 



Faster program from page 95 

5 DEFDBL S,P,N,A,B 

10 P = 1000 

20 A = 25 

30 B = 76 

90 PRINT" WORKING ON N<";P 

95 Q=P/10 

99 REM THIS BLOCK EXTENDS A VALUE 

100 FOR K=l TO 9 

105 N = K*Q + A 

110 S = N*N 

115 IF S=S+1 THEN PRINT "OVERFLOW 

ERROR ON S,N=";S;N:STOP 

120 T = S - P*INT(S/P) 

130 IF N<>T THEN 200 

140 PRINT S;N 

150 A=N 

160 GOTO 300 

200 NEXT K 

210 REM END OF BLOCK THAT EXTENDS 

A VALUE 

250 REM 

299 REM THIS BLOCK EXTENDS B VALUE 

300 FOR K=l TO 9 
305 N = K*Q + B 
310 S = N*N 

320 T = S - P*INT(S/P) 

330 IF NoT THEN 400 

340 PRINT S;N 

350 B = N 

360 GOTO 500 

400 NEXT K 

401 REM END OF BLOCK THAT EXTENDS 

B VALUE 

450 REM 

500 P = P*10 

520 GOTO 90 
RUN 
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The two rather different programs seem to agree as far as they go, 
but the longer program produces more results in two minutes, than the old 
program did in 48 hours or even a week. That is what is meant by effec- 
tive programming. 

Actually all values of N such that w ends in N for N of 100 or 
fewer digits are known, but their investigation uses more mathematical 
sophistication than we are willing to impose here. 
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WHAT WE HAVE LEARNED IN LESSON 5 . 

The most important thing in Lesson 5 is the realization that you do 
already have enough computer adroitness to successfully undertake the 
investigation (and at least partial solution) of problems so diffi- 
cult that a month ago you wouldn't even have tried them. You should 
also have discovered that it is frequently a nontrivial (but perfectly 
possible) task to program a computer to help solve research level 
problems . 

Most important of all - you have discovered one of the fundamental 
truths of computer programming. 



When you have a program written and it is debugged 
and running properly, then if you reflect on the 
problem you will frequently find a better way to 
do it. If the problem is major, this is the time 
to think hard, then scrap your earlier effort and 
start over. 



Of course if the problem is a "one time only" problem and if your 
existing program produces the desired results while you are thinking, 
you can forget the reprogranming unless you want to show the program 
to someone else or to use it again later. 
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SOME MICRO-RESEARCH PROBLEMS 
YOU MAY UNDERTAKE 

Don ' t expect all of these problems to be easy , or even solvable 
with your present knowledge. They are micro -research problems for your 
consideration. If you do more than two problems, you are to be congrat- 
ulated. After working on a problem as stated, see what extensions and 
modifications you can devise; work on them. 

1. If the 6's are cancelled in 16/64 -> 10/04 = 1/4 the result is correct. 
(26/65 -> 20/05 = 2/5 is another example.) Find all examples of proper 
fractions such that AB/BC = A/C with A f B where A,B,C are digits 
between and 9 inclusive. 

2. If N! = 1*2*3*... *(N-1)*N f or N > 1 v 

and S(K) = 1! +2! +3! +4! + ... +K! = V 7 (N! ) , 

N=l 

for what values of K > 1 is S(K) a perfect square? 
(This requires some easy mathematical thinking after you have writ- 
ten and run a computer program. ) 

3. Write a program to accept an integer N > 2 as input and then type 
out N and the factors of N. 

4. Let your input be three positive numbers A,B,C (not necessarily 
integers ) . 

a) Determine whether or not A,B,C can be the sides of a triangle. 
(Note: If A,B,C = 1,5,3, the answer is "no".) 

b) If A,B,C are acceptable as sides of a triangle, extend your pro- 
gram to also print the area of the triangle. 

c) If A,B,C do determine a triangle, extend your program to also 
compute the angles of the triangle. 

5. a) Write a program that will accept a positive integer N as input 

and determine whether or not N is a prime. (Note: 1 is not 
a prime. An integer N > 1 is prime if its only positive factors 
are 1 and N. ) Compare your program with those written by your 
classmates. Test it for several values of N > 6000. See whose 
runs fastest, and why. 

b) Make a table of primes < 5000. 

c) Extend your program to print out all the prime factors of N. 

6. Write a program to accept two positive integers M and N and to print 
out M, N and also the largest positive integer which divides both 

M and N. Such an integer is called the greatest common divisor 
and may be found using a technique called Euclid's Algorithm or 
by simply trying all positive integers from the smaller of M and N 
down to 1 until you find a value which will divide both. 
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If you use the latter (inefficient, but effective) technique, your 
program could begin: 

1(80 INPUT "M,N =" M,N 

106 IF M<=0 THEN 10(3 

1(38 IF N<=(3 THEN 100 

1(39 REM: INSTRUCTION 11(3 SETS S = SMALLER OF (M,N) FOR USE IN 2(3(3 

110 IF M>N THEN S = N ELSE S = M 

200 FOR D=S TO 1 STEP -1 



7. Find two consecutive integers whose squares each use exactly the sane 
digits (in a different order, of course). Thirteen and fourteen are 
such a pair; 13 2 = 169 uses the same digits as 14 2 = 196. Similarly, 
1572 =24649 and 1582 =24964. Find other pairs of consecutive inte- 
gers whose squares are composed of the sane digits. 

8. a) Write a computer program to accept three values M,D,Y and deter- 

mine whether or not they are acceptable values for Month, Day, 
Year in that order. If Y < 1590 you may prefer to state the 
date is unacceptable rather than consider the various calendar 
reforms that took place prior to 1590. 
b) Extend the above program to accept two sets of three numbers and 
if both are acceptable as Month, Date, Year values, determine 
the number of days between them including both dates in your 
count. 
Example: 2,20,1978 to 2,22,1978 is 3 days. 

9. For the distinct digits A, B, C, D, E, F, G, H, I, J the product 

A*(BCDE)=FGHIJ 
has solution 4*(7039) = 28156 and a dozen other solutions . Find them. 

10. Write a program to accept a positive integer K and print it out and 
also print out the integer obtained by reversing the digits of K. 
Example: If K = 12345, 

print out: 12345 54321 

11. The sequence 

12 3 4 6 8 9 12 16 18 24 27 32 . . . 

is made by listing numbers of the form N = 2 • ? 
(with k and m integers k- 0, m- 0) in order of increasing size . 
It is not easy to devise an algorithm to generate and print them in 
increasing order , but that is only part of your task. The even more 
difficult problem is to find the 1000th term of the sequence, or more 
generally, given an integer T, find the T-th term of the sequence. 
(Thanks to Fred Gruenberger for suggesting this problem. ) 
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12. Write a program that will draw a random maze on the screen such that 
it is possible to reach every cell of the maze, but there is only one 
"best" path (i.e. without retracing) through the maze. Then, extend 
your program so that the computer will "solve" the maze it created. 

13. a) Determine the sum of the N-digit numbers that can be formed 

using N specified digits for each possible set of 2,3,4 and 5 
digits . 
Examples : 

N = 2 Digits =3,8 Then sum = 38 + 83 = 121 

Digits =4,1 Then sum = 14 + 41 = 55 (Yes, we count 
Digits =2,2 Then sum = 22 + 22 = 44 22 both ways.) 

N = 3 Digits = 1,2,3 Then sum = 

123 + 231 + 312 + 132 + 321 + 213 = 1332 
Digits = 3,8,9 Then sum = 

389 + 893 + 938 + 983 + 839 + 389 = 444(3 

b) Notice that the sum seems always to be divisible by 11. Can you 
prove this in general? What other factors will the sum have? 

c) Can you show that an N-digit number will have N! different 
permutations, (N-l)! of which start with each digit, and (N-l)! 
of which have each digit in the second place, etc.? 

d) If you prove each of the above, you may also be able to show 
that the sum of the N! numbers obtained as permutations of the 
N digits will always be (N-l)! * (sum of the original digits) * 
(the integer consisting of N ones). Ibr N = 8, Digits = 
1,2,3,4,5,6,7,8 there are 4(332(8 integers and their sum is 
201599997984(3. 

e) What happens if a number containing repeated digits is counted 
only once? Thus N = 2, Digits = 2,2 Sum = 22 (not 22 + 22 = 44). 
[This is a rough problem.] 

14. A palindrome is a phrase or sentence which reads the same forward as 
backward. 

"Too Hot To Hoot" 

"Ma Is As Selfless As I Am" 

"Retracting, I Sign It, Carter" 

"Marge Lets Norah See Sharon's Telegram" 

There are also numbers which are palindromes. It is fairly easy to 
find perfect squares which are also palindromes. 

(Ill) 2 = 12321 

(202) 2 = 40804 

(264) 2 = 69696 
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It is possible to prove that there exist infinitely many perfect 
squares that are palindromes. However, perfect squares that are 
palindromes having an even number of digits such as (836) 2 = 698896 
are fairly rare. 

Investigate the subject of perfect squares that are also 
palindromes . 



> 1 does W = 2 
.2 



,N 



-1 contain a factor > 1 which 



15. For what values of N 
is a perfect square? 

If N = 6, W = 2 6 -1 = 63 = 3" • 7 

7 
If N = 7, W = 2 -1= 127 which does not contain a square factor > 1 

Q 

If N = 8, W = 2 -1= 255 which does not contain a square factor > 1 

16. a) It is easy to find Pythagorean rectangles having integral sides 

and integral diagonals (l,w,d) = (3,4,5) or (5,12,13). But can 
you find a box (rectangular parallelepiped) having three 
distinct integers as dimensions, each of whose face diagonals 
is also an integer? 
b) If so, can you also find one whose body diagonal as well as face 
diagonals are integers? 
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17. Use your TRS-80 to design some personal greeting or Christmas cards. 
Take photographs of the TRS-80 showing the design on the screen and 
enough of the keyboard to be recognizable. Send one to your authors. 
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You are ready to proceed on your own now. No one is expected to 
work all of the research problems in Lesson 5, but you should work several 
and at least read and consider the others. The way to learn computing is 
to compute, and then reflect. 

The remainder of this book discusses useful techniques and additional 
BASIC instructions you may or may not need to know about. Lessons 6 to 17 
may be read in any_ order desired , or ignored . Bead about these techniques 
when you are ready to use them . You already have skill enough to solve 
many problems using the computer as a tool. We suggest you glance briefly 
at the summary below to ascertain the general content of the lessons be- 
yond 5. Then read them when the need for such specialized information is 
felt . Bead whatever interests you most, and continue with the micro- 
research problems presented in Lessons 5 and 17. 

Lesson 6 is devoted to the use of the TAPE CASSETTE for storage of 
programs and data . 

Lesson 7 is devoted to GAMES and TAPED PROGRAMS you may enjoy. 

Lesson 8 discusses the EDIT instruction in greater detail. 
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Lesson 9 is an introduction to simulation , one of the most important 
uses of computers in today's world. 

Lesson 10 discusses double precision variables ( introduced in Lesson 
5) before introducing subscripted variables and the fascinating (and 
vital) string variables (more details in Lesson 14). The lesson closes 
with arrays (matrices) and how to use them. 

Lesson 11 is a collection of tips that may help you overcome or avoid 
difficulties. Remarks on saving memory space and computing time as well 
as a listing of the meanings of major error codes are presented in this 
lesson . 

Lesson 12 Although the PRINT instructions already at your disposal 
are sufficient for most users, your TRS-80 Level II BASIC has a variety of 
other PRINT instructions and special commands that are frequently useful: 

PRINT TAB( ) PRINT STRING'$(K,"#") 

PRINT USING A$,K PRINT CHR$(n) 

Lesson 13 Lesson 4 may meet all your graphic needs, but Lesson 13 
explains the pixel notation and introduces several time-saving techniques 
and instructions. 

Lesson 14 extends your knowledge of string variables, and introduces 
elementary conversational programs in which the computer simulates con- 
versation. The ROBOT COUNSELOR program and the CIPHER program may also 
interest you. 

Lesson 15 explains how and where to look for additional information 
on computing with particular emphasis on the TRS-80 Level II BASIC. 
Several computer related journals are listed with brief annotations. 

Lesson 16 discusses several BASIC instructions not used earlier in 
in this book. 

Lesson 17 extends the collection of seventy-five microRESEARCH 
PROBLEMS. The way to learn computing is to compute and then to examine 
your programs and results to see if you could have devised a better pro- 
gram. 

The discussions presented Lessons 5 and 17 are planned to help you 
develop efficient as well as effective programs and to whet your problem 
solving ability. Many of the problems presented are readily extended. 
Their solutions frequently suggest further explorations worthy of your 
talent. This is why they merit the adjective "RESEARCH". The wide var- 
iety of problems includes something for every taste: several arithmetic 
explorations, greeting card graphics, Haiku poetry, logical decisions, 
calendar problems, dart and target games, loan and finance programs, trea- 
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sure hunt games, caricatures, speech timer, puzzles, recursive functions, 
polygonal maps, a medical emergency prompter, number theory problems, 
lattice problems, magic prime squares, graphs, monkeys at typewriters, 
amicable and sociable numbers, dance partners and the eight queens pro- 
blem. 



: THE IMPORTANT THING IS TO HAVE FUN WITH YOUR micro COMPUTER 
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TAPE CASSETTE for programs and data storage. 



Occasionally you have a special program worth saving for future use or to 
show off to a friend. Put it on tape. Tape is also handy for storing data. 

Each TRS-80 comes with a tape recorder for storing programs and data 
that you wish to save. It uses regular (high quality) tape cassettes. I 
personally prefer the short 30 minute (15 minutes per side) tapes rather 
than the 45 minute, 60 minute or 90 minute tapes since the tape recorder 
starts, stops and operates more uniformly when the reel contains less 
tape. Try it and suit yourself. Radio Shack sells a special 10-minute 
tape for use on TRS-80 which has no "leader" on it — but any high quality 
30 minute (15 minutes per side) tape will serve — just so you don't try to 
record on the leader. 
Van timdeAA voko kavz oldeJi CTR-40 and CTR-41 ta.pt fincofidntit* : 

The original tape recorders supplied with TRS-80s were CTR-41 's on 
which the REM jack had to be unplugged before the tape was repositioned. 
The CTR-41 also requires the use of a "dummy plug" in the MIC jack at 
all times. The CTR-80 now furnished should not have a dummy plug inserted 
at any time. 

Instead of unplugging the REM jack on the CTR-41 you can use a short 
program. 

9000 OUT 255,4 

9010 INPUT "REPOSITION TAPE, PRESS (ENTER) WHEN READY" ; A$ 
9020 END 

Then type RUN 9000 when you wish to reposition the tape. 
Tok HJicidzKh with P^e--J9gQ CTR-80 tape, fitcotdtm, : 

The more recent CTR-80 's can use. "fast-forward" or "rewind" without 
unplugging the connection between TRS-80 and the cassette at the REM jack. 
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This is much nicer. 

In either case the volume control was critical in getting usable 
programs and data back into the TRS-80 — on early (pre-July, 1979) TRS- 
80s. 

The following may be helpful: 

Radio Shack announced (Spring, 1979) a "fix" that they will install free 
to make the recording level less sensitive on existing TRS-80' s. Current 
TRS-80' s already have it installed. Your TRS-80 Level II keyboard has a 
catalogue number on the underside of the case. If the catalogue number 
ends -1 (example 26-1006-1) , the modification has already been made . 
If not, it will be worthwhile to take the keyboard unit to Radio Shack 
to have the free "fix" made. Cassette storage is much easier to use 
thereafter. 

If your CTR-80 cassette player was manufactured before February, 1979 
(see date stamped on cassette box— Feb., 1979 = 2A9) take the cassette 
player to your Radio Shack store, too. They will install a small capaci- 
tor in the innards of the electronics to avoid a possible "noise spike" 
on your recorded tape if you push the stop button while it is reading 
tape, an infrequent but annoying happening. If the date of manufacture 
is Feb., 1979 or later (say 6A9 or 1A0) this extra protection has already 
been installed at the factory. We recommend setting modified CTR-80 
cassette recording level at 4 both for recording and playback. Once you 
find the best volume for your system , a drop of white correction fluid 
(Snopake, Liquid Paper, etc.) or paint will mark the location for future 
reference . 

In any case, the usual tape care is essential. 

!• Ebn't leave cassettes near a magnetic flux source like your power 
supply or near a magnet as in a motor or a speaker. Also, don't ex- 
pose cassettes to extreme heat or cold. 

2. Keep your cassette capstan and rollers clean . Dirty heads cause lots 
of troubles. If you don't know how to clean them, your nearby Radio 
Shack or tape recorder store will be glad to show you, and sell you a 
cleaning kit (<$2). 
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To load a tape that already contains a program 

Plug in everything carefully. 

110 volt (Don't expect to use the batteries.) black power 
cord - TN 

DIN plug to TRS-80 keyboard hole labeled TAPE with (JTj) 

pip- on plug in slot on socket {S °o\ , 

3 plugs on other end of cable connect to cassette player 

BLACK plug into EAR hole 

LARGE GREY plug into AUK hole 

SMALL GREY plug into small MIC hole (CTR-80) 
or REM hole (CTR-41) 

If you are using CTR-41 put dummy plug into MIC and leave it 
there. 

If you are using CTR-80 do not use durrmy plug — just leave big 
MIC hole empty. 

NEXT: 

Adjust the position counter back to zero. (They register differently on 
CTR-41 and CTR-80, so be a bit suspicious. ) 

Check the volume adjustment. (This is fussy, experiment a bit.) 

CTR-41 5 to 8 

CTR-80 3.5 to 4.5 (user-generated); 4 to 5 (commercial tape) 

Push IplAYI key on cassette. 



Type CLOAD or CLOAD "I" and I ENTER 1 on Keyboard (where I is letter 
identifying your program). 

The cassette should be turning now. 

Soon the TRS-80 video screen will show two asterisks . 
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Level I " 




Level II 



If all is going properly, one asterisk will blink irregularly. 

When it finishes loading, the cassette will halt the tape and the display 
screen will show 



READY 



Depress the 1 STOPi button on the cassette (even though the tape 
has halted). Vonotlmvt the. \PLAv\ key depteued uhw not In u4e. 



Type LIST lENTERl . 

If the program seems OK, type RUN |ENTER| . 

If no program is present (or if the asterisks appeared but did not wink) 
lower the volume slightly; rewind the tape and try again. 

If something loaded, but the last part seems all jumble and gibberish, 
increase the volume slightly; rewind the tape and try again. 
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To SAVE a program currently in the computer 

Set up the cassette recorder as described before; be sure plugs are 
set firmly in the proper holes. 

Check the volume setting. 

CTR 41 4-6 

(Try mid-range first . ) 
CTR 80 3.5-4.5 

Rewind the tape. (Unplug REM jack only if on CTR-41 or use program fix.) 

Reset the tape counter to 000. 

Advance the tape to get past the "leader" if you are using standard tape— 
or to a blank place if the tape already contains some programs or data. 
(I usually begin programs at 10 on the tape and leave between 10 and 
19 "counts" of blank tape between programs. This may be overly cau- 
tious, but it sure makes it a lot easier to find things.) 

Note the program name and where it begins on the index card with your 
cassette or on the cassette label. 

Depress both [RECORDl and IPLAYl keys on the cassette recorder (surprise — 
yes both should be down to record — so the TRS-80 can control things 
properly) . 

Type CSAVE " " (with a letter to identify the program between the 
„ „ } . 

The tape should begin to advance and the TRS-80 will record your program 
on the tape. 



Ihen the program is recorded, the video screen will display 
as usual. 



READY 
>_ 



Depress the |STQP[ button on your recorder. This is important . 

Note where the program ended on your index card or the cassette label. 

Rewind the tape to the beginning of the program (see index card and count- 
er). 

Depress |PLAY| only on cassette player. 

Type CL0AD ? to check the tape against the program in tne TRS-80 memory. 
If the tape checks properly, the screen will display READY, otherwise 
screen will display BAD and you should CSAVE " "it again. 
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I record each program twice, just in case anything happens . You'll have 
more space than you can use on a 15-minute per side tape. (Use both 
sides , of course . ) 



Sound and Music 



Some TRS-80 programs include sound or music as part of their output. 
Higher quality musical reproduction is obtained by using a separate ampli- 
fier and speaker. If you are interested in medium fidelity sound rather 
than high fidelity music production, quite satisfactory results may be 
obtained using the amplifier present in the cassette player furnished 
with your TRS-80. 

First get the program in your TRS-80 in the usual fashion. Then 
unplug the black plug from the ear hole in the cassette recorder (leaving 
the two grey plugs in place). Plug the earphone that came with the tape 
recorder into the ear hole (or better yet plug a speaker in there— you 
can get a suitable jackplug or converterplug from Radio Shack) . 

Now you need to fool the tape recorder. Remove any tape cassette 
from the recorder. Push in the little lever at the back left side of the 
opening where the cas sette wo uld go. While you are depressing it, depress 
both the I RECORD | and | PLAY | buttons on the front of the recorder. These 
should stay down when you release the lever. Now RUN your program. 




The following instructions are used to place data onto tape and to 
retrieve data from tape: 

PRINT #-1, PRINT #-l,X,Y,B$,A$ 

Output to cassette #1 from computer 

INPUT #-1 INPUT #1,X,Z,B$ 

Input from cassette #1 to computer. 

If you are having trouble with keyboard bounce (double letters from 
a single key stroke), use the debounce tape. More recent keyboards seem 
not to have as much trouble with this as did those Level II 's delivered 
before 1980. 
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GAMES AND PLAYTOYS 

Computers are magnificient game players. It isn't hard to play games 
which someone else has programmed - if they have done a good job of writ- 
ing the program, but writing quality game-playing programs is difficult. 

Here is a not very well written game. Put it on your computer; play 
it two or three times and then come back to the text and together we shall 
improve it. 



IF YOU 
YOU WILL FIND THE TREASURE." 



Y = ";X,Y 



5 REM TREASURE HUNT - FIRST TRY 

10 CLS 

20 XI = RND(50) : Yl = RND(50) 

30 PRINT "A TREASURE IS BURIED IN A 50 FOOT BY 50 FOOT SQUARE 
CAN LOCATE THE GRID POINT NEAREST IT 

40 PRINT 

50 INPUT "PLEASE TYPE COORDINATES X 

60 IF X = XI AND Y = Yl THEN 500 

70 A = X - XI : B = Y - Yl 

80 D = SQR(A*A+B*B) 

90 PRINT ' 'SORRY YOU MISSED IT BY" ; D ; ' 'FEET . ' ' 

150 GOTO 40 

500 REM TO HERE ONLY IF TREASURE IS FOUND 

510 FOR Q = 1 TO 80 

520 PRINT @ RND(1000), "WHEEEE YOU GOT IT." 

530 NEXT Q 

540 GOTO 10 



Well - it's a game - and the program works if you typed it in correct- 
ly. But it isn't much fun. You really need more information than just 
the distance to the treasure. 
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It would help if the program told you whether, X and Y are too big 
or too small. Eo you want to try to revise the program on your own be- 
fore you continue? 



One of the most common games computer progranmers play is "one-up-man- 
ship". Modifying existing programs is one form of the sport. An impor- 
tant way to gain programming skill is to adapt and improve a working pro- 
gram written by someone else. There is an axiom among computer program- 
mers that says 



Any program you have written, 
I can improve upon. 



It has as its converse 



Any program I have written, 
you can improve upon. 



and together they have a corollary 



Any program I have written, 
I can improve upon. 



Each of these is probably true. In some cases the real question is 
whether or not it is worthwhile to improve on a program even if you can 
do so. 

The answer depends upon how frequently the program will be run , and 
how much of your time will be required to improve the program. 

Some ways it is frequently possible to improve programs are: 

1. Make them use less computer time. 

2. Provide output better suited to the user's needs. 

3. Make the program easier to understand (and hence 
easier to modify and maintain) . 

4. Generalize the program so it is useful in solving 
other problems without sacrificing speed. 

Programs designed to play games or solve puzzles somehow seem partic- 
ularly subject to improvement, even by beginners. We shall look at sever- 
al commercially available programs and how they can be improved. This is 
one of the most satisfying ways to improve your own ability as a program- 
mer. 
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Let's go back and improve the treasure hunt program. The "heart" 
of the original program is 



50 INPUT "PLEASE TYPE COORDINATES X,Y =";X,Y 

60 IF X = XI AND Y = Yl THEN 5(3(3 

70 A = X - XI : B = Y-Y1 

80 D = SQR(A*A+B*B) 

9(3 PRINT "SORRY YOU MISSED IT BY" ;D; "FEET." 

150 GOTO 40 

500 REM TO HERE ONLY IF TREASURE IS FOUND 



540 GOTO 10 

It would be nice to print another line of type right after 90 that 
tells us which way to go. Let's insert the following: 

100 IF A> THEN A$="TOO BIG" ELSE A$="TOO SM4LL" 

110 PRINT "YOUR X VALUE IS ";A$, 

120 IF B> THEN A$ = "TOO BIG" ELSE A$ = "TOO SMALL" 

130 PRINT "YOUR Y VALUE IS ";A$ 

Insert these instructions and run the program again. It is more fun 
this way, isn't it? Play it several times. 

HEY - DID YOU NOTICE THAT THE PROGRAM CHEATS? YES IT DOES. 

If you get either X or Y correct, but not both correct, it tells you 
to change them both. 

Insert temporary debugging instruction 

21 PRINT XL, Yl 

and run it again. The correct treasure location will now be printed at 
the top of the screen so you can test it. Try putting in two wrong 
values - Seems OK. Next put in the correct value for one coordinate and 
the wrong one for the other coordinate. Hrmrn - The program still claims 
both values are either TOO BIG or TOO SMALL. That won't do, will it? 

OK OK OK 

We'll fix that too. Try 

100 IF A> THEN A$ = "TOO BIG" ELSE IF A = THEN A$ = "OK" ELSE 

A$ = "TOO SMALL" 
120 IF B> THEN A$= "TOO BIG" ELSE IF B = THEN A$ = "OK" ELSE 

A$ = "TOO SMALL" 
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Try it - it works now. Remember to delete instruction 21 before you 
show it off to someone else. 

There is really no reason we need always work on a 50 by 50 foot 
square. How about letting the player select the size of the square? 
We'll need an instruction to INPUT the size of the square. 

15 INPUT "PLEASE TYPE LENGTH OF SIDE OF SEARCH SQUARE. ";S 

Remember to thwart the person who puts in 4.73 or -2 or some such 
joke. 

16 S = INT(ABS(S)) 

Before continuing you should look through the program and see what 
other instructions need to be modified. 

Instructions 2(3 and 30 need to be changed; our new program (still 
not perfect) is 

5 REM TREASURE HUNT - SECOND TRY 

10 CLS 

15 INPUT "PLEASE TYPE LENGTH OF SIDE OF SEARCH SQUARE." ;S 

16 S = INT(ABS(S)) 

2(3 XL = RND(S) : Yl = RND(S) 

3(3 PRINT "A TREASURE IS BURIED IN A";S;" BY ";S;"F0OT SQUARE. IF YOU 
CAN LOCATE THE GRID POINT NEAREST IT, YOU WILL FIND THE TREASURE." 

4(3 PRINT 

5(3 INPUT "PLEASE TYPE COORDINATES X,Y =";X,Y 

6(3 IF X = XI AND Y - Yl THEN 5(3(3 

7(3 A=X-X1:B = Y-Y1 

8(3 D = SQR(A*A+B*B) 

90 PRINT ' 'SORRY YOU MISSED IT BY" ; D ; ' 'FEET . ' ' 

100 IF A> THEN A$ = "TOO BIG" ELSE IF A = THEN A$ = "OK" ELSE 

A$ = "TOO SMALL" 

110 PRINT "YOURX VALUE IS ";A$ 

120 IF B> THEN A$ = "TOO BIG" ELSE IF B = THEN A$ = "OK" ELSE 

A$ = "TOO SMALL" 

130 PRINT "YOUR Y VALUE IS ";A$ 

150 GOTO 40 

500 REM TO HERE ONLY IF TREASURE IS FOUND 

510 FOR Q = 1 TO 80 

520 PRINT @ END (1000), "WHEEE YOU GOT IT." 

530 NEXT Q 

540 GOTO 10 

Play the game a few times and then, after correcting the spacing on 
instructions 30, 100 and 120 if needed, show it to a friend. 

What happens if someone inserts .5 or as the value for S? Maybe 
we need another smart aleck guard at 17. 
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17 IF ABS(S) = THEN S = 500 : PRINT "ALL RIGHT, SMARTY, I'LL FIX YOU. 
TRY THIS." 

Modifications of this treasure hunt program can provide the first 
approximation of a number of much more interesting games. 

How about adding Eepth at which the treasure is buried as well as 
X,Y locations? 

Gould you modify the coordinate game to play the child's game 
"BATTLESHIP" in which the computer selects positions for several targets 
which you must locate? 

Can you insert graphics which will show you where your choices have 
been and the corresponding D value rather than telling you which way to 
move? 

Try a few modifications of your own. 

Here are some games programmed (or adapted) by secondary school 
students in Oklahoma in Spring, 1979. If you find unfamiliar instructions, 
see Lesson 16 or your TRS-80 LEVEL II BASIC Reference Manual. 

5 CLS 

7 PRINT "THIS IS A GUESSING PROGRAM. YOU ARE TO GUESS A FRACTION N/D 
WITH 1<=N<=10, 1<=D<=10." 

9 PRINT 

100 G = RND(10)/RND(10) 

110 PRINT "I HAVE A NEW FRACTION FOR YOU TO GUESS. PLEASE TYPE YOUR 

GUESS IN DECIMAL FORM." 

120 INPUT X 

130 IF X = G THEN PRINT "WHEEE. . .YOU GOT IT!": GOTO 100 

140 IF X>G THEN 170 

150 PRINT "YOUR GUESS IS TOO SMALL. TRY AGAIN PLEASE." 

160 GOTO 120 

170 PRINT 'YOUR GUESS IS TOO BIG. PLEASE TYPE IN ANOTHER GUESS." 

180 GOTO 120 

Play the game; then consider any desirable changes. One student suggest- 
ed adding the following: [HomveA, it did not wank at> antLcipattd. Can 

you keJLp?) 
10 ON ERROR GOTO 900 
900 PRINT "PLEASE TYPE THE FRACTION USING DECIMAL FORM, NOT N/D FORM." 
910 GOTO 9 
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THIS IS A HANGMAN GAME ADAPTED BY 

3 REM KAREN JEANNE HENRY 

4 REM Rl BX 580 MCLOUD, OK 74851 

5 REM (405) 273-1133 

10 REM THE HANGMAN PROGRAM IS SELF EXPLAINED. THE PERSON PLAYING 

WILL INPUT A LETTER AND THE COMPUTER WILL TELL YOU IF YOU 

ARE CORRECT OR NOT. 
20 REM AS YOU INPUT EACH LETTER THE COMPUTER MAY OR MAY NOT CHANGE 

GRAPHICS 
25 REM WHEN YOU FINISH THE GAME THE COMPUTER WILL VERIFY YOUR WIN OR 

LOSS BY CHANGING GRAPHICS AND/OR WORDS 

30 REM X + Y ARE USED IN SET STATEMENTS IN FOR-NEXT LOOPS 

31 REM D$( ) ARE THE WORDS, F$( ) ARE THE LETTERS OF THE WORDS 

32 REM WD IS THE TOTAL NUMBER OF WORDS IN THE MAIN PROGRAM 

33 REM W$ IS THE INPUTED LETTER L(N) + Fl ARE COUNTING DEVICES 

34 REM K IS A VARIABLE OF HOW MANY WRONG LETTERS 
99 CLEAR 100 

100 REM 

102 CLS 

103 WD = 10 

104 K=0: FOR N=l TO 8: L(N)=0: NEXT N 

105 PRINT "**HANGMAN**" 

106 FOR X = 9 TO 51 STEP 6 

107 SET(X,15): SET(X + 1,15) : SET (X + 3,15) : SET(X + 2,15): NEXT X 

108 FOR X = 70 TO 79: SET(X,44): NEXT X 

109 FOR Y = 4 TO 44: SET(74,Y): SET(75,Y) : NEXT Y 

110 FOR X = 76 TO 101: SET(X,4): NEXT X 
140 FOR Y = 5 TO 7: SET(101,Y): NEXT Y 

150 IF FG = 1 THEN 160 ELSE D$(l)'= "APPLE": D$(2) = "HEART": D$(3) = 
"STUDENT" : D$(4) = "TEACHER": D$(5) = "PENCIL" :D$(6) = "PAPER" : 
D$(7) = "PEN" : D$(8) = "WORK": D$(9) = "TIRED": D$(10) = "HARD" 

160 DD = DD + 1: IF DD> WD THEN 2050 ELSE Z$ = D$(DD) 

180 N = LEN(Z$) 

190 F$(l) = MID$(Z$,1,1) 

200 F$(2) = MID$(Z$,2,1) 

210 F$(3) = MID$(Z$,3,1) 

220 F$(4) = MID$(Z$,4,1) 

230 F$(5) = MID$(Z$,5,1) 

240 F$(6) = MID$(Z$,6,1) 

250 F$(7) = MID$(Z$,7,1) 

260 F$(8) = MID$(Z$,8,1) 

270 IF F$(3)<>"" THEN 290 

280 RESET (21,15) : RESET (22,15) : RESET (23,15) : RESET (24,15) 

290 IF F$(4)<>"" THEN 310 

300 RESET (27,15) : RESET (28,15) : RESET (29,15) : RESET (30,15) 

310 IF F$(5)<>"" THEN 330 
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320 RESET (33,15) : RESET (34,15) 

330 IF F$ (6) <> " " THEN 350 

340 RESET (39,15) : RESET (40,15) 

350 IF F$ (7) <> " " THEN 370 

360 RESET (45,15) : RESET (46,15) 

370 IF F$ (8) <> " " THEN 390 

380 RESET (51,15) : RESET (52,15) 

390 PRINT @ 388, "THIS WORD HAS "; 



RESET (35,15) 

RESET (41,15) 

RESET (47,15) 

RESET (53,15) 
N; "LETTERS",; 



RESET (36,15) 
RESET (42,15) 
RESET (48,15) 
RESET (54,15) 



452, "TYPE EACH LETTER" ; 

516, "PRESSING ENTER EACH TIME" 



(258 +(3*N)), W$; : L(N) = 1 : FLAG = 1 



W$; : Z = 
= 1 THEN P 



Z + 2 



P + 1 



400 PRINT 

410 PRINT 

415 Z = 644 

420 PRINT @ 896, " " ; 

425 INPUT W$ 

427 PRINT @ 980, " " ; 

430 FOR N = 1 TO 8 

440 IF W$ = F$(N) THEN PRINT 

GOTO 450 
450 NEXT N 

460 IF FL = THEN PRINT @ Z, 
470 P = 

480 FOR N = 1 TO 8 : IF L(N) 
500 NEXT N 

510 IF P = LEN(Z$) THEN 2000 
520 IF FL = 1 THEN FL = : GOTO 420 
530 ON K + 1 GOTO 540, 660, 710, 810, 910, 980 
540 K = 1 

550 FOR X = 95 TO 107 : SET (X,8): SET (X,16) : NEXT X 
580 FOR Y = 10 TO 14 : SET (109, Y) : SET (93, Y) : NEXT Y 
610 SET (94,9) : SET (108,9) : SET (108,15) : SET (94,15) 
620 SET (97,10) : SET (105,10) : SET (101,11) : SET (101,12) 
630 SET (95,12) : SET (96,13) : SET (97,14) : SET (98,14) : SET (99,14) 

SET (100,14) 
640 SET (101,14) 

SET (105,14) 
650 GOTO 420 
660 K = 2 

670 FOR Y = 17 TO 33 : SET (100, Y) 
700 GOTO 420 
710 K = 3 

720 FOR X = 103 TO 112 : SET (X,20) 
750 Y = 19 ; SET (117,14) 

FOR X = 112 TO 116 : SET (X,Y) 

GOTO 420 
810 K = 4 
820 FOR X = 90 TO 99 : SET (X,20) : NEXT X 

Y = 26 

FOR X = 85 TO 90 : SET (X,Y) : SET (X,Y-1) 



SET (102,14) 
SET (106,13) 



SET (103,14) 
SET (107,12) 



SET (104,14) 



SET (101, Y) : SET (102, Y) : NEXT Y 



760 



NEXT X 
SET (X+1,Y) 



Y = Y-l 



NEXT X 



850 
860 
900 GOTO 420 



Y = Y-l : NEXT X 
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910 K = 5 : Y = 33 

920 FOR X = 103 TO 112 : SET (X,Y) : SET (X+1,Y) : Y = Y+l : NEXT X 

960 SET (113,43) : SET (114,43) : SET (115,43) : SET (116,43) : 

SET (117,43) 
970 GOTO 420 
980 Y = 42 

990 FOR X = 89 TO 98 : SET (X,Y) : SET (X+l.Y) : Y = Y-l : NEXT X 
1030 SET (85,43) : SET (86,43) : SET (87,43) : SET (88,43) : SET (89,43) 
1040 RESET (101,12) : RESET (95,12) : RESET (96,13) : RESET (106,13) : 

RESET (107,12) 
1060 FOR X = 97 TO 104 : RESET (X,14) : NEXT X 
1100 SET (97,14) : SET (98,13) : SET (99,13) : SET (100,13) : 

SET (101,13) : SET (102,13) : SET (103,13) : SET (104,13) : 
SET (105,14) 
1110 PRINT @ 772, " AHHH! THAT'S TOO BAD"; : GOTO 2010 
2000 PRINT @ 772, "CONGRATULATIONS! YOU WON! ! !"; 
2010 FOR N = 1 TO 2000 : NEXT N : CLS : GOTO 100 
2050 REM THIS CHANGES WORDS 
2055 ON F+l GOTO 2060, 2070 

2060 D$(l) = "GEOMETRY" : D$(2)="ALGEBRA" : D$(3)= "TRIANGLE" : 
D$(4)= "FORMULA" : D$(5)= "SOLUTION" : D$(6)= "SUBTRACT" : 
D$(7)= "NEGATIVE" : D$(8)= "REDUCE" : D$(9)= "INVERSE" : 
D$(lj9)= "FRACTION' : K=l : F=l : GOTO 170 
2065 DD=0 : FG=1 : GOTO 100 

2070 REM THE PERSON USING THIS PROGRAM CAN ADD MORE WORDS IN THIS SAME 
WAY, USING THE D$(SUBS), OR HE CAN USE DATA FILES AND STORE WORDS ON 
A TAPE RECORDER CONTROLLED BY THE COMPUTER. USE FOR N= 1 TO 10 • 
INPUT #-1 , D$(N) : NEXT N : GOTO 2065 



This program will fit on a 4-K Level II TRS-80, but you may need to 
"squeeze out" most of the spaces as suggested in Lesson 11. 

1060 FORX=97TO104:RESET(X,14):NEXTX 

is hard to read, but requires less computer memory. Lines 3 to 34 
may be omnitted, if necessary. 

After it is up and working, you may wish to try to improve it by 
including additional words from a cassette file. See Lesson 6. 
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REVERSE 

10 REM * REVERSE * BOB YARBROUGH 4-78 

20 REM RANDOM DIGITS ARE FLASHED. OPERATOR MUST ENTER NUMBER 

21 REM FORMED BY WRITING DIGITS IN REVERSE ORDER 
3(3 REM L IS INITIAL LENGTH OF STRING OF DIGITS 
31 L=3 

40 REM A IS LENGTH OF COUNTER 

41 A=1000 

50 REM G IS NUMBER OF CORRECT RESPONSES BEFORE STRING 

51 REM IS LENGTHENED 

52 G=3 

60 REM STRING IS SHORTENED WHENEVER AN ERROR IS MADE. 

70 CLS 

80 PRINT "YOU MUST ENTER DIGITS SHOWN IN REVERSE ORDER." 

90 PRINT 

100 O=0 

101 PRINT "NEXT STRING WILL BE ";L;" LONG." 

102 Z=0 

104 GOSUB 200 

106 CLS 

110 FOR X=57 TO 68 

112 SET(X,21) 

114 SET(X,29) 

116 NEXT X 

120 FOR Y=21 TO 29 

122 SET(57,Y) 

124 SET(68,Y) 

126 NEXT Y 

130 FOR N=l TO L 

132 A(N)=RND(9) 

134 Z=10*Z + A(N) 

136 NEXT N 

140 FOR N=L TO 1 STEP -1 

142 PRINT @ 542,A(N); 

144 GOSUB 200 

145 SET(60,25) 

146 SET(61,25) 

147 NEXT N 

148 CLS 

149 PRINT 

150 INPUT P 

152 IF P <> Z THEN 180 

160 PRINT "CORRECT" 

162 OC+1 

164 IF C < G THEN 102 

166 L=L+1 

168 GOTO 100 
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REVERSE (Continued) 

180 PRINT "WRONG ***" ;Z; "***" 

183 GOSUB 200 

186 L=L-1 

190 GOTO 100 

200 FOR M=l TO A 

202 NEXT M 

204 RETURN 

210 END 

Note: If you wish the digits to be displayed for a shorter period of 
time, change line 41 to: 

41 A = 500 or some smaller value. 



122 



ASTEROIDS 

1 REM *ASTEROIDS* MICHAEL BRIGGS 1-79 

2 CLS : PRINT " MANEUVER THE SHIP THROUGH THE ASTEROIDS BY USING THE 
UP-ARROW KEY TO GO UP, THE DOWN ARROW TO GO DOWN, AND THE < AND > 
KEYS FOR LEFT AND RIGHT." 

3 Z = 15 

4 DIMA(Z,15) 

5 PRINT 

6 INPUT "PRESS ENTER TO START" ; D 

7 LL = 150 
9 CLS 

10 X = 63 : Y = 44 

15 TI = 

20 SET (X,Y) : SET (X.Y+1) : SET (X-l.Y+2) : SET (X+l.Y+2) 

22 FOR G = TO 127 

24 SET (G,47) 

26 NEXT Note.-- NEXT mnki> cu> well cu> NEXT X, 

30 FOR L = 3 TO 15 but the. pfia.cM.cit o{ omitting the. 

40 FOR P = 1 TO Z vcuviahle can came a problem In 

50 A(P,L) = RND(128)-1 nested FOR... WEXT loopi>, 

60 SET(A(P,L),2*L) 

70 NEXT : NEXT 

80 PRINT @ 32, "GO!" 

90 FOR L = 3 TO 13 

100 R = RND(3)+2 

110 FOR P = 1 TO Z 

120 S$ = INKEY$ 

122 TI = TI + 1 

123 IF S$ = "" THEN 240 

125 RESET (X,Y) : RESET (X,Y+1) : RESET (X-l,Y+2) : RESET (X+l.Y+2) 

130 IF S$ = "+" THEN Y = Y-l : GOTO 170 

140 IF S$ = "+" THEN Y = Y+l : GOTO 170 Note: The, + won't i>how on 

150 IF S$ = "." THEN X = X+2 : GOTO 170 the hcfieen, but It U_ 

160 IF S$ = "," THEN X = X-2 In thexe. 

170 IF X = 127 OR X = 1 GOTO 500 

180 IF Y = 45 THEN GOSUB 1000 

190 IF Y = 1 THEN 2000 

200 IF POINT(X,Y) OR POINT(X,Y+l) OR POINT(X-l,Y+2) OR 

POINT(X+l,Y+2) THEN 1505 

235 SET (X,Y) : SET (X.Y+1) : SET (X-l.Y+2) : SET (X+l.Y+2) 

240 RESET (A(P,L), 2*L) 

250 A(P,L) = A(P,L)+R 

260 IF A(P,L) >=128 THEN A(P,L) = A(P,L) -128 

265 IF ABS(A(P,L)-X) < 2 THEN 900 

268 SET(A(P,L),2*L) 

270 IF TI = LL THEN 2500 

280 NEXT : NEXT 

300 GOTO 90 
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ASTEROIDS (Continued) 

500 CLS 

510 PRINT "YOU HAVE JUST RUN INTO A BLACK HOLE, SORRY!" 

520 GOTO 2020 

900 IF 2*L >= Y AND 2*L <= Y+3 THEN 1505 

910 GOTO 268 

1000 CLS 

1010 PRINT " YOU HAVE CRASH-LANDED, BUT IT'S NOT TOO FAR TO THE BASE." 

1020 GOTO 2020 

1505 FOR BL= 1 TO 40 : RESET (X,Y) : RESET (X,Y+1) : RESET (X-l.Y+2) : 

RESET (X+l.Y+2) : SET (X,Y) : SET (X,Y+1) : SET (X-l.Y+2) : 

SET (X+l,Y+2) : NEXT : CLS 
1510 PRINT "(AP) HOUSTON - NASA MISSION CONTROL REPORTS THE LOSS OF AN 

INTER-PLANETARY SHUTTLE IN ROUTE TO SATURN. THE VESSEL APPARENTLY 

SUFFERED SERIOUS ASTEROID DAMAGE AND WAS UNABLE TO RETURN TO EARTH." 
1520 GOTO 2020 
2000 CLS 

2010 PRINT "EXCELLENT NAVIGATION! CONGRATULATIONS ARE IN ORDER." 
2015 PRINT "YOU STILL HAVE" ; (LL-TI)*10 ; "GALLONS OF FUEL LEFT," 
2020 PRINT : INPUT "PRESS ENTER TO TRY AGAIN" ; D 
2030 GOTO 9 
2500 CLS : PRINT "YOU HAVE RUN OUT OF FUEL. YOU WILL CRASH-LAND IN 

APPROXIMATELY 15 MINUTES. WE MIGHT EVEN SEND A SEARCH PARTY TO 

PICK UP THE PIECES." : GOTO 2020 



Here is a brief program that clutters up the screen in an interesting 
fashion. Try it. You might like it. 

100 POKE 16396,23 

110 CLS 

120 FOR N=14336 TO 15360 

130 PRINT CHR$(PEEK(N) ) ; " "; Don't oveMook the. &inal ; hejtt. 

140 NEXT N 

150 GOTO 100 

Then type RUN - ljNIffi]and. hit several keys at once without using lENTERl . 
Try El QO [W] and then try various other keys with some or all of the 
above. HH [~S~! 

CO HEJ 

m rcn 

To terminate the program, open the little door on the back left-hand side 
of your keyboard unit and depress the button on the extreme left side. 
You may need to turn your computer off and then back on again to assure 
proper functioning of all keys. 
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You will find dozens of game programs in Softs ide , Computronics , 
Creative Computing , TRS-80 Computing (San Luis Bey, CA), PROG-80 
(Milford, NH) and many other journals mentioned in Lesson 15. 
Some commercial games are rather expensive, costing $25 and more. 
Such games are still cheaper than ones you design, write and debug, if 
your time is valuable. Other tapes are available at a cost so low that 
you can hardly afford the time to type in the program and correct your 
typing errors. People's Software will send you a list of available pro- 
gram tapes (1981 price $10.95 plus postage in U.S. for some tapes). 
They add more to the list all the tine and will swap you free tapes for 
good original programs which you have written. 

Tape 1($11) contains a whole collection of games, some trivial, some 
excellent. Other programs deal with business, banking, bio-rhythms, 
speed-reading, math refresher, etc. Tape 2 ($11) contains some slightly 
more sophisticated banking and business programs, math programs, statist- 
ical programs, etc. Tape 5 ($11) is more of the same. Tape 6 is 
People's Pascal, Version II, and the cost is $23.50. You may or may not 
be ready for the Pascal language. 

You can learn a lot by ordering one of these tapes and then examining , 
adapting and improving the programs to suit your whim. BE SURE TO SPECI- 
FY WHETHER YOU HAVE LEVEL I OR LEVEL II BASIC. The address is: 

People's Software 
Computer Information Exchange 
Box 158 

San Luis Rey, CA 92066 

Telephone: (714) 757-4849 (VISA or MASTERCHARGE accepted for phone 

orders) 
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PRACTICE SESSION 7 



1. Improve the treasure hunt program Introduced in this lesson. 

2. Either devise a number guessing game of your own or improve the game 
written by a secondary school student in this lesson . 

3. Play Karen Henry's modified Hangman program and then modify it to use 
your cassette tape recorder to provide additional words. 

4. Either write a garre-playing program of your own or improve a game- 
playing program written by someone else. Almost any game-playing 
program can be modified and improved. Try out your own ideas. 

5. See if you can determine where the "fuel supply" is stored in the 
ASTEROIDS program. Change the fuel allotment. Also, determine 
whether fuel is used up by "time elapsed" or by "number of keystrokes',' 
and plan your playing strategy to take advantage of this knowledge. 

6. Modify Bob's program to play REVERSE so the player can INPUT a value 
to determine the amount of time the numbers are displayed (the dif- 
ficulty level ) . 

7. Look in one of the journals listed in Lesson 15 and find a computer 
game. Put the game on your computer, debug and play it. Then, see 
if you can improve it. 
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EDIT INSTRUCTIONS 

The simplest way to change short lines in a program is certainly 
just to retype it, as we have been doing. 



If you mistyped a program as 

1000 FOR K = 1 BO 17 
101(3 PPRINT K; 
1020 NEXT K 



\QJVi0K] 

[qjvwh) 



RUN 



ENTER 



The computer will display 



/ ? SN ERROR IN 1000 
/ READY 
100P_ 

By depressing key (T] the computer will list line 1000 and again display 
the line number, to facilitate correction. 



?SN ERROR IN 1000 

READY 

1000 IDR K = 1 BO 17 

1000 



You may now either space over to just under the error using the space bar, 
or you may depress 2D and the E3 (the character in error). In either 
case, you will now have 
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'?SN ERROR IN 10(3(3 
READY 

10(3(3 EDR K =1 BO 17 
1000 FOR K =1 _ 



Next, depress [c] for "change" and depress ] T I followed by [ENTER ( 
to correct the line. 



Type LIST |ENTER| to see that the change was made. 

1(3(3(3 TOR K = 1 TO 17 
1010 PPRINT K; 

1020 NEXT K 



If you type RUN |ENTER| you can go through a similar error detection 
and error correction routine for line 1010, but if you notice the "PP" 
when you LIST it, it is easier just to retype it as 



1010 PRINT K; | ENTER 



If you didn't note the error and type RUN | ENTER! , you will obtain 



/RUN 

( ?SN ERROR IN 1010 

READY 

1010 _ 

Upon depressing \h\ the last line will show: 

1010 PPRINT K; 
1010 _ 

If you space the underline (cursor) over to directly under either of the 
letter P's 



1010 PPRINT K; 
1010 P_ 

and depress key [d] , the computer will display: 



^1010 PPRINT K; 
1010 PIP! 



The ! ! indicates the portion that will be deleted when you depress 



ENTER • 



Depress ENTER 



Type LIST ENTER | and, sure enough, it shows: 
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/1000 K)R K = 1 TO 17 
1010 PRINT K; 

1020 NEXT K 

and RUN | ENTER] produces the expected result. 

/I 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 
READY 



You can always go into the EDIT made to change a line by typing 
EDIT ttne, numbex. For example, to change the 17 in line 1000 to a 37, 
one merely types: 



EDIT 1000 I ENTER 



The computer responds 

1000 _ 

Depress 



, and you will have 



<>EDIT 1000 

1000 TOR K = 1 TO 17 

1000- 

Note that the "1" of 17 is the second "1" in line 1000, so depress 

1 2 j and then jjf] and then [Tj [LUeJuxlty, "Seek tkt 2nd 

chanjxsiteJL 1 " . ) 

The computer displays 



<£eDIT 1000 
1000 FOR K = 1 TO 17 
1000 FOR K = 1 TO _ 



Now, depress £5] followed by [IT] which gives 
1000 FOR K = 1 TO 3 



Depressing |ENTER] will comple te the line and enter the cha nges 
into the program, as LIST JENTER 1 will then show, and RUN [ENTER I 
will demonstrate. 

Chapter 9 in your TRS-80 Level II BASIC Reference Manual gives additional 
details, which are summarized here. 
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EDIT MODE SUBCOMMANDS AND FUNCTION KEYS 
Subcarmand/ Function Key Function 



EDIT tint no. ENTER 



ENTER 






SHIFT 


t 






n Space-Bar 






n «- 


L 
X 
I 

A 
E 

Q 

H 



.10 

n® 



where tine. no. is a valid line number con- 
taining an instruction. This sends the com- 
puter to EDIT that line. 

End editing and return to Command Mode. 

Escape from subconroand and remain in Edit 
Mode. 

Move cursor n spaces to right. 

Itove cursor n spaces to left. 

List remainder of program line and return to 
beginning of line. 

List remainder of program line, move cursor 
to end of line, and start Insert subcommand. 

Insert the following sequence of chara cters 
at current cursor position; use IsHIFTl PR 
to get out of insert subconrnand. 



Cancel changes and return cursor to beginning 
of line. 

End editing, save all c hanges and return to 
Corrmand Mode. Same as [ENTER! 

End editing, cancel all changes made and re- 
turn to Command Ifode. 

Delete remainder of line and insert following 
sequence of characters; use I SHIFT [ [Tito 
get out of this insert subcommand. 

Delete specified number of characters n begin- 
ning at current cursor position. 

Change (or replace) the specified number of 
characters n using the next n characters en- 
tered. 

Move cursor to nth occurrence of character c, 
counting from current cursor position. 
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n K c 



Delete all characters from current cursor 
position up to nth occurrence of character c , 
counting from current cursor position. 



Let us try to use some of these EDIT instructions. Type along on 
your TRS-80 to help. you follow what is taking place. 

If you have the program line: 

100 PLEASE PRINT THIS LINE. 

and type 



RON [ENTER] 

your screen will show 



?SN ERROR IN 100 

READY 

100 _ 



If you depress [Lj the screen will show 



/<RUN 

?SN ERROR IN 100 
READY 

100 PLEASE PRINT THIS LINE . 
100 _ 

By now you realize that you need a PRINT instruction and that the message 
needs to be in quotes if it is to be printed. 

(Nothing seems to happen, but it has put the 
editor into the insert mode.) 



(which will appear on the screen) 

(Again nothing seems to happen, but this 
releases you from the insert mode , ) 



Depress 

Type 
PRINT " 


I 


key 




Depress 


SHIFT 


t 


Depress 


m 







(This moves to the end of the line and puts 
the editor back into insert mode.) 
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Your TRS-80 will new shew 



?SN ERROR IN 1(2(8 
READY 

1(30 PLEASE PRINT THIS LINE 
100 PRINT "PLEASE PRINT THIS LINE._ 



Note that the underscore at the end of the line shows you where the next 
character will appear. It is right where you need to insert another quote. 
To do so, type 



ENTER 



Your correction is now complete. 
If you type 



RUN ENTER 



the program will print the desired message . 

Note: If, back at the beginning when you ran 100 PLEASE PRINT THIS LINE 

and your screen showed 

/ >RUN 
?SN EEBOH IN 100 
READY 
100 _ 



you forgot to give the EDITOR a command by depressing _IJ (or some other 
carmand key) and just started to type PRINT, an unexpected action would 
have taken place. 

The editor would ignore [p] [r] as unacceptable commands. It would then 
use (T] as the "insert" conmand and would have inserted N T. 

This is not at all what you wanted. 

EDIT takes a bit of care, but it is well worth the effort. 
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LESSON 9 

Simulation 



1 



- 1 




SIMULATION 

A SIMULATION is a charade that uses a mathematical model to repre- 
sent life-like experiments. The quality of the simulation is highly 
dependent upon how well the mathematical model represents the actual phys- 
ical or social situation under study. 

Many tiroes it is difficult to compute a result of an actual experi- 
ment, either because the computation itself is too difficult to perform, 
or because the theory is not yet sufficiently developed. Even if the 
theory isn't well developed, it may still be feasible to use simulation 
to study the situation. 

Simulation is one of the most important uses of modern computers. A 
simulation is a caricature. As in any caricature, it emphasizes the most 
prominent features under consideration and ignores the others. 

We shall not attempt to simulate complex processes here. Instead, 
we shall simulate several rather simple situations — problems which you 
quite possibly could solve without resorting to simulation, but which will, 
nonetheless, illustrate the spirit of the game. 

The heart of most simulation processes is some sort of random number 
generator. 

The TRS-80 has an easy-to-use random number generator which you al- 
ready investigated and used in Lesson 4. 



not including 
including both 



RND(0) produces a random decimal between and 1, 
either endpoint. 

HND(K) produces a random integer between 1 and K, 
endpoints . 

RANDOM is sometimes used once at the very beginning of programs that 
will be used frequently. It reseeds the random number gen- 
erator so that the same sequence of RND ( ) values is not 
produced on each run. 
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Let's begin with a simple program to simulate five rolls of two dice. 
Each die will produce one of the values 1, 2, 3, 4, 5, 6 at random. We 
wish to display the value shown on each die as well as their sum. For 
convenience, the individual dice are represented by E and G (for Red and 
Green, to tell them apart). 

100 REM DICE THROWING PROGRAM 

110 FOR K = 1 TO 5 

120 R = RND(6) 

130 G = RND(6) 

140 S = R + G 

150 PRINT "DICE SHOW" ; R ; G , "SUM =" ; S 

190 NEXT K 

Get this up and running before you go further. 

Now imbed the above in a program that will collect statistics on how 
frequently each sum occurs in 100 rolls. 

10 DIM T(12) 

20 REM ZEROS T(2) TO T(12) FOR FUTURE RECORDS OF TOTALS 

30 FOR. S = 2 TO 12 

40 T(S) = 

50 NEXT S 

100 REM DICE THROWING PROGRAM 

110 FOR K = 1 TO 100 

120 R = RND(6) 

130 G = RND(6) 

140 S = R + G 

150 PRINT "DICE SHOW" ; R ; G , '"SUM =" ; S 

160 T(S) = T(S) + 1 : REM THIS ACCUMULATES TOTALS IN T( ) 

190 NEXT K 

300 REM PRINTING OF TOTALS 

310 PRINT 

320 FOR S = 2 TO 12 

330 PRINT S ; "WAS ROLLED" ; T(S) ; "TIMES IN 100 ROLLS OF TWO DICE." 

340 NEXT S 

350 PRINT 

Once the program is running properly, you may change instruction 110 to 

110 FOR K = 1 TO 1000 
to obtain a larger sample size. You will wish to change 100 to 1000 in 
instruction 330 as well. Additional speed may be obtained by deleting 
instruction 150 once you are sure the program is functioning as desired. 
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A BIOLOGICAL SIMULATION 

Example 9-1 

Suppose a biologist takes 100, equal-sized drops of liquid from a 
liter flask containing bacteria which are randomly distributed (i.e., 
no tendency to cluster). Upon testing, it is discovered that 50 of the 
samples are bacteria- free, while the other 50 contain 1 or more bacteria 
per sample.* Assuming that the bacteria are distributed at random among 
the samples, approximately what is the total number of bacteria in the 
100-drop sample? 

The exact answer cannot be determined. However, it is possible to 
obtain a statistical estimate of the desired number. You may or may not 
have sufficient mathematical sophistication to solve this problem 
directly, but it is an easy matter to simulate it. 

Number 100 locations V(0) to V(99), and store zero in each. See 
Lesson 10 for additional information on subscripted variables. Then 
generate a sequence of random two-digit numbers. Each time the number N 
is generated ( < N s 99) we add one to location V(N). This is con- 
tinued until exactly 50 of the locations contain non-zero numbers and 50 
still contain zeros. At this stage, we have an estimate of the total 
number of bacteria in the 100 samples, either by having kept track, or 
by summing the V(N)'s. 

Of course, the estimate may not be very good if we perform the 
experiment only once. By running it several times, using different ran- 
dom number sequences, we can obtain an average estimate that may be 
reasonably close. The "proper" number of runs is a mathematical problem 
of greater difficulty than we shall discuss here. 

Do you see that this technique might be helpful? Actually, the 
mathematics needed to justify and analyze techniques of this type is 
highly sophisticated, but fortunately for many users , the techniques 
themselves are comparatively simple to use. A flow-chart of a computer 
program to simulate this experiment is given on the following page. 



* The testing consists of adding a drop of reagent to the sample drop. 
If it is bacteria- free, it will remain clear, but if the sample contains 
one or more bacteria, it turns purple. However, the sample does not turn 
twice as purple if two or more bacteria are present, so our test gives 
no idea of the total number of bacteria present . 
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Initialize 



Set starting 
value of 

each sample 
V(l) = p 






Set 
C = 
and 

t = g>_ 



"DIM V(99) sets aside 100 
locations V(0), V(l ),..., 
V(99) to represent the 
-100 samples. 



C is used to keep track 

of how many cells now 

contain one or more 

bacteria. 

T = total number of 

bacteria to date. 



Generate 
a random two-digit 
integer 




Add one bacteria 
to the Nth sample 



Increment T 
by one 



•^tgfr- 




Summarize results 
of this test and 
print it. 



X 



Possibly 
[go back to START j 
\and RUN it again/ 
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100 


DIM V(99) 


110 


FOR K = TO 99 


120 


V(K) = 


130 


NEXT K 


150 


C = 


160 


T = 



C=Uumbex ofa CeZli, containing bacXeAla. 
T=Totat numbex o(, bacteJtla.. 

200 REM GENERATE N: <= N<= 99: INCREMENT V(N) 

TOTAL, AND IF APPROPRIATE COUNT. 

210 N = RND(100)-1 

220 IF V(N) > THEN 230 

225 C = C+l 

230 V(N) = V(N) + 1 

240 T=T+1 

250 IF C < 50 THEN 210 

300 PRINT "THE 100 DROPS CONTAIN A TOTAL OF' ; T ; "BACTERIA." 
Before expanding this experiment, run it a few times. If it shows the 
same result each time, you may need to add the instruction 
5 RANDOM or 5 RANDOMIZE 

to prevent the program from resetting the random number generator to the 
same place at the start of each run. After the program is debugged and 
running, you could imbed it in a FOR. .. .NEXT loop to run it, say, 100 
times and give information on the 100 trials. You might even run it 1000 
or 5000 times and compute mean and standard deviation of the total number 
of bacteria to be expected in the 100-drop sample. You might also con- 
sider how to change the program if the number of contaminated drops found 
in the 100-drop sample were 35 or 70 instead of 50. 



For now merely add: 
90 G = : REM G WILL BE USED TO ACCUMULATE THE GRAND TOTAL OR 

CUMULATIVE TOTAL OF BACTERIA IN 100 RUNS 
105 FOR S = 1 TO 100 

300 PRINT "SAMPLE' ' ; S ; "CONTAINS A TOTAL OF" ; T ; ' 'BACTERIA ' ' 
310 G = G + T 
320 NEXT S 
400 PRINT 

410 PRINT " THE HUNDRED RUNS PRODUCED AN AVERAGE OF " • G/100 • "TOTAL 
BACTERIA PER RUN " ' W ' 

In Practice Set 9 you will modify this program so that the number 
of runs can be specified by the user. You may wish to think a bit about 
which instruction will need to be changed. Actually, the simulated 
average of 100 runs should be expected to agree quite closely with the 
answer of 69 bacteria obtained using statistical theory. 
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A SECOND BIOLOGICAL SIMULATION 



EXAMPLE 9-2 



Consider a superficially related, but actually different example. 
This time our biologist has a liquid which he knows contains exactly 200 
amoebas (or fish) which again are distributed at random throughout the 
liquid. If he separates the liquid into 50 equal size samples V(l), V(2), 
. . . ,V(50), how many samples will be amoeba-free? (Also, how many will 
contain 1, 2, 3, 4, 5, 6, more than 6 amoebas?) 

The conputation on this is well within your understanding, but that 
is not really the purpose of this example . Let ' s simulate the problem 
by creating 50 storage cells, each of which initially contains zero 
amoebas. This time generate exactly 200 pseudo-random numbers N, with 
1^N^50. Each time the number N appears, add 1 to the number in location 
V(N). 



100 DIM V(50), M(8) 

110 FOR K = 1 TO 50 
120 V(K) = 

130 NEXT K 

200 FOR B = 1 TO 200 
210 N = RND(50) 
220 V(N) = V(N) + 

230 NEXT B 

300 REM ZERO THE M 

310 FOR L = TO 8 
320 M(L) = 

330 NEXT L 



St£& aAtde. Apace, fati AampleA V{) 
and facnat data collzctian M ( ) . 
TkU zfwi, SO iamplu V[K). 

Tkli di&fiibuteA the. 200 amoeba*. 
Into the. 50 iampleA. 



S TO COLLECT DATA FOR FINAL REPORT 



(Continued on next page) 
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400 REM COLLECT DATA ON HOW MANY V-SAMPLES CONTAIN L AMOEBA3 

410 FOR B = 1 TO 50 

420 N = V(B) 

425 IF N < 7 THEN 430 

428 N = 8 

430 M(N) = M(N) + 1 

440 NEXT B 

500 REM PRINT OUT SUMMARY 

510 FOR L = TO 6 

520 PRINT " THERE ARE " ; M(L) ; " SAMPLES WITH EXACTLY " ; L ; 

" AvDEBAS " 
530 NEXT L 

540 PRINT " THERE ARE " ; M(8) ; " SAMPLES CONTAINING 7 OR MOREAMOEBAS " 

Once you have the program up and debugged and feel it is running 
well, you may wish to include it in a FOR . . . NEXT loop to run the 
experiment several times and to tabulate the data in a more useful form. 
This is left for you to do. Once again it will be discovered that the 
average of, say 100, runs of such a simulation will agree quite closely 
with the forecast obtained using statistical theory, in which the number 
of amoeba-free samples is 

j- A/1 1,200 ,.„,, , -4.200 _ -4 

50(1- -g^) = 50(1+ 2qq) ~ 50e = 50*. 0183 = .9 

The results of our simulation program correspond very closely to the 
theoretical results. 

A simulation of this type can also produce convincing evidence that 
certain phenomena are not random. Let us assume that in your area P 
persons died during D days of this year. If we assume that deaths occur 
at random, then we are placing P markers into D cells just as we were in 
the previous example, except P = 200, and D = 50. In this case, the 
agreement between the outcome of the simulation and actual data is not 
good. Indeed, further analysis shows that deaths are not usually distrib- 
uted at random, but rather that a high "successive-day-dependence" seems 
to exist with alternate high and low death periods. This too can be 
simulated, but the model is more sophisticated. 

EXAMPLE 9-3 

Now examine another simulation. This is essentially an Ehrenfest 
model with three molecules (see your physics or chemistry teacher). For 
simplicity it is posed as a "Guppy" problem. 

Assume your aquarium contains 3 pregnant guppies. Because of their 
gravid condition you prefer not to net the guppies, but instead to place 
a "transfer cage" in the aquarium. At the start there are no guppies in 
the transfer cage and three in the aquarium. As time goes on the guppies 
swim into or out of the transfer cage at random. When all three are in 
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the transfer cage, the door is closed and no further exchange is possible. 
The guppies are then transferred to a maternity aquarium. The number of 
guppies in the transfer cage at various times might be 

0-»-l-»-2-*-l->2-»-l->-0->l-»-2-*-l-*-2-»-3 end. 

If you were unusually lucky, it might even be 

0-*l->2->3 end. 

The problem is to determine the average number of arrows in the chain 
before all three fish are in the transfer cage. 

Again there exist statistical techniques (for example Markov Chain tech- 
niques) which could be used to determine the desired result, but we pre- 
fer to simulate the process. 

Before examining the solution proposed by your author, at least try your 
hand at flow charting the heart of this problem. 

Here is one possible model. Use a random number generator to 
determine whether the next guppy goes into or out of the cage: If 
RND(0) 5.5 put a fish into the transfer cage. If RND(0) >.5 move out 
one, if possible. "When all three fish are in the cage, stop the simu- 
lation . 

1(3 REM FIRST GUPPY MODEL SIMULATION 

20 C = : REM C = # OF GUPPIES IN CAGE 

30 A = : HEM A=#OF ARROWS 

90 PRINT "HISTORY="; 

1(3(3 R = END ((3) 

11(3 IF R >. 5 THEN 200 

120 REM HERE IF FISH ENTERS CAGE R< = .5 

130 A = A + 1 

140 C = C + 1 

150 PRINT C; 

160 IF C = 3 THEN 500 

180 GOTO 100 

200 REM HERE IF FISH DOES NOT ENTER CAGE R> .5 

210 IF C = THEN 100 

220 A = A + 1 

230 C = C - 1 

240 PRINT C; 

250 GOTO 100 

500 REM HERE IF ALL 3 GUPPIES ARE IN CAGE 

510 PRINT "SUCCESS AT LAST" 

520 PRINT A; "ARROWS OR 'SWIM 1HR0UGHS' TOOK PLACE" 

530 PRINT 

After debugging the above model you may enclose it in a program to run 
25 times and give the average number of arrows for the 25 runs at the 
end of the history. 
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The preceding model may or may not represent this situation. Let 
us leave that for a chemist or physicist or guppy breeder to decide. 

Before we show our model to an expert, it might be well to consider 
possible objections he could reasonably be expected to raise. Hrmro— 
well, it does seem that the probability of a guppy leaving the cage 
should be greater when there are two guppies in the cage and only one 
outside than when the situation is reversed-doesn ' t it? Consider 
another possible model . 

ANOTHER MODEL 

You may easily discover a better simulation technique than the one 
suggested above. Be sure your next simulation takes into account that 
when the cage contains two guppies, then the next movement is twice as 
apt to be from the cage to the aquarium, as from the aquarium to the 
cage. 

If you have trouble setting up your simulation model, here is an 
idea. Use three counters , one to represent each fish. If a given fish 
is in the cage, the corresponding counter will contain a 1, otherwise 
it will. contain a zero. Two possible histories are: 

(1) Fish #l-*0-*l->l-»-0->l-*-l end 
Fish #2->0->-0-s-0-*0->0->1 end 
Fish #3->0->-0-»-l-»-l-»-l-*l end 

which could be represented more compactly as 

000 •> 100 -> 101 -> 001 ->• 101 -> 111 end. 
Another possible history could be 

(2) Fish #1 0->0 + l + l end 
Fish #2 -> 1 ■> 1 •> 1 end 
Fish #3 0-*0->0->l end 

which could be represented as 

000 -y 010 -* 110 -> 111 end. 
Before you continue, write a program or flowchart to simulate this model. 
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In this simulation all three fish start outside of the transfer cage, 
i.e., F(l) = 0, F(2) = 0, F(3) = 0, THEN the computer generates a random 
number to determine which of the three guppies shall be the next one to 
change places (swim in if out, swim out if in cage). All three are in 
the cage when T = F(l) + F(2) + F(3) = 3. 



The following flowchart summarizes the proposed program 



I START J 

_I_ 



Initialize 
F(l)=F(2)=F(3)=p 



V PRINT out digits / 



Select random 
number 1,2,3 to 
determine which of the 
three digits to change 



Change 


selected 


digit 







->1 






1 


-0 





\ 



PRINT out current digits 



7 
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Here is one possible program for the previous flowchart - but yours may 
be just as good, or even better than this one, so don't change yours - 
not yet, at least. 

GUPPY - SECOND MODEL 
10 REM GUPPY SECOND MODEL SIMULATION 
20 DIM F(3) 

50 REM SET Fl = F2 = F3 = ASALL GUPPIES ARE OUTSIDE CAGE 

60 F(l) = 

70 F(2) = 

80 F(3) = 

90 PRINT F(l) ; F(2) ; F(3) ; " -> " • 

100 R = RND(0) 

110 IF R > .667 THEN 300 

120 IF R > . 333 THEN 200 

130 REM HERE ONLY IF Fl IS TO MOVE 

140 N = 1 

150 GOTO 500 

200 REM HERE ONLY IF F2 IS TO MOVE 

210 N = 2 

230 GOTO 500 

300 REM HERE ONLY IF F3 IS TO MOVE 

310 N = 3 

500 REM NOW READY TO MOVE FISH #N 

510 IF F(N) = THEN 550 

520 IF F(N) = 1 THEN 600 

530 PRINT "SOMETHING IS WRONG. F(" ; N ;") EQUALS"; F(N) 

540 STOP 

550 REM MOVE F(N) INTO CAGE 

560 F(N) = 1 

570 IF F(l) + F(2) + F(3) < 3 THEN 90 

580 PRINT F(l) ; F(2) ; F(3) ; "END— ALL IN CAGE NOW." 

590 PRINT : PRINT 

595 GOTO 60 

600 REM MOVE F(N) OUT OF CAGE 

610 F(N) = 

620 GOTO 90 

Try it out. Debug the program and when it is running smoothly include it 
in a program to run the simulation 25 times and print out the average 
number of arrows for the 25 runs, at the end of the histories. 

PRACTICE SET 9 

1. Simulate the roll of a pair of dice. After your simulation is up and 
running, enclose it in an over-program that will roll the pair of dice 
1000 times and keep track of how many times the sum shown is 2, 3, 4, . . . , 
12. Compare the output of your simulation with the theoretical outcome, 
which you may either compute or discover in a book on probability, dice 
or gambling. 
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2. Modify the pro gram of Problem 1 so it assumes dishonest dice have been 
used in which the |\ | is replaced with a second 



3. Modify the program of Example 9-1, so the number of runs can be 
specified by the user. 

4. Enclose the program of Example 9-2 in a FOR. . .NEXT loop that will per- 
mit you to run the experiment 500 times and tabulate a summary of the data 
obtained. 

5. Explain the purpose of instructions 425 and 428 in the program of 
Example 9-2. Did the given program ever use M(7)? Why do you think 
the author left it so? 

6. Create a flow chart for your final revised version of Example 9-2 
(Problem 4) and use it to explain what your program does to a friend. 

7. A batch of 80 ounces of plastic contains 100 small metallic impurities. 
Assume that the plastic is well mixed and that the impurities are distrib- 
uted at random throughout the plastic when it is molded into 160 half- 
ounce replacement heart valves. If a valve contains one or more impur- 
ities it must be discarded. It is quite possible that anywhere from 60 

to 159 metal-free valves may be obtained from the given batch. Write 
a computer program to simulate one hundred 80-ounce runs and determine 
the average number of metal- free heart valves you would expect on the 
basis of your simulation. 

8. Extend the program of Problem 7 slightly so that in addition to giv- 
ing you the average of the hundred runs, it will also keep track of the 
largest and the smallest number of metal- free valves that were manu- 
factured from a single batch of the hundred runs. 

9. Assume that in Shire approximately 100 Hobbits die in a given 30-day 
period. Write a computer simulation that will print out a table of 
twenty lines of output data, each line representing a 30-day period with 
100 random deaths distributed among the 30 days. Print a reasonably 
clear header before the 20 lines of output data, since the Shire Health 
Department wishes to use your data for comparison with actual death rates . 

10. A well-known and interesting problem asks the question, "In a set of 
thirty persons selected at random, what is the probability that at least 
two of the thirty persons have the same birthday (anniversary date) (i.e., 
same month and date of birth, but not necessarily born in the same year)?" 
How would you simulate this problem? 

11. Write a program to simulate Problem 10 assuming 365 days per year. 
After debugging your central program, expand it so you run your simula- 
tion for 50 sets of 30 persons before you print out the approximate 
simulated experimental probability. Compare your simulated result with 
that computed. (See "the birthday problem" in a text on probability, if 
you need help.) Open Who's Who to some page and take the first 30 birth- 
days you find for a similar experiment. 
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12. Simulate some simple game of your own choosing and have the computer 
summarize the results. Suitable games might be "matching pennies", "put 
and take", or some very simple dice game but not anything as complicated 
as "Yahtzee" or "craps". 

13. Expand your program for Example 9-1 or Example 9-2 to run 1000 times 
and compute standard deviation as well as mean of the numbers involved. 

14. Debug the first guppy model. After it is debugged and running, 
include it in an "over-program" that will run the model 25 times, print- 
ing a history each time and give the average number of arrows per run at 
the end of 25 runs. If your runs all produce the same history, there is 
apt to be something wrong with the way you invoked the random number 
generator. Fix it up and rerun the program. 

15. Debug the second guppy model. After it is debugged (and checked 
that it doesn't always give the same history) incorporate your debugged 
program into a program that will run the model 25 times, print a history 
each time and give the average number of arrows per run. Compare the 
results of model 1 and model 2. Which do you feel is a better represen- 
tation of the problem? Why? 

16. Write a program to simulate a penny toss between two persons if the 
first person starts with PI pennies and the second with P2 pennies, where 
PI and P2 are input for the program. Your program should print out the 
number of pennies each person has after each toss and stop as soon as 
either person has lost all his pennies. 

17. Write a program to simulate a ping-pong game with the initial input 
being two numbers (PI and P2) which represent the probability of player 1 
and player 2 returning a given shot successfully. Change your model a 
bit to make it more realistic if you can. 

18. Same as Problem 17, but for the game of tennis. 

19. If you were to write a simulation of a baseball game, what variables 
would you wish to be able to read in and thus vary from run to run? 
Discuss a possible simulation with a colleague. Make a rough flow chart 
of your proposed simulation. 

20. The dice game known as "craps" is played by noting the total number 
of points, when two dice are rolled, as follows: 

1. If , on the first roll, you roll 7 or 11, you win. 

2. If, on the first roll, you roll 2, 3, or 12, you lose. 

3. If, on the first roll, you roll a 4, 5, 6, 8, 9, or 10, 
this number becomes your "point" and you continue rolling 
the dice until you either roll your "point" again or you 
roll a 7. If you roll your point again before you roll a 7, 
you win. If a total of 7 turns up first, you lose. 

Use the computer to simulate a craps game. Have the output show, on one 
line, the actual history as well as the first win or loss of the game. 
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21. Rearrange your program of Problem 20 so that you can simulate the 
game of "craps" under the assumption that each die carries the spots 
1-5-3-4-5-6, instead of the usual arrangement. 

22. Write a program to simulate the deal of 52 playing cards with NC 
cards per player and NP players. Your program should read in the 
values for NC and NP and check that NC*NP < 52 before starting to 
deal. One way to deal using RANDU is to assume there are 52 cards 
numbered from 1 to 52 inclusive. You may wish to use DIMENSION C(52) 
and set the value of each C(I)=0 at the start, then once that "card 
I" is dealt, change the value of C(I) to +1 so that you do not deal 
the same card twice. (This causes hard feelings!) You may wish to 
store the hands in an array DEAL(NC,NP) by storing the numbers I, but 
in printing out the results, you should translate the stored integers 
into the usual suit and value designation. Use your program to deal 
5-card poker hands to 8 players and also to deal 13-card bridge hands 
to four players. 
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VARIABLE TYPES 



BASIC uses four distinct data types for its variables. Each variable 
nay be forced to be any of the four types, either by using DEF statements 
or by the use of special type designators described below. The four 
types are: 

Single Precision Floating-point (6 digits of accuracy) 
Double Precision Floating-point (16 digits of accuracy) 
Integer (between -32768 and +32767) 
String (up to 255 alphabetic or numeric characters) 

The first three types are used for numerical computation and storage. 
String variables are never used in arithmetic. They permit the storage, 
examination and comparison of sequences of letters, numbers, blanks and 
special characters. 

a) Single Precision Floating-point Variables DEFSNG A.B.W-Z 

Single precision floating-point numbers are the type we have been 
using for most of our computation. It is the option which the TRS-80 
automatically elects for you unless you instruct it to do differently. 
Such computation is carried out to (the binary equivalent of ) 7 decimal 
digits of precision inside of the computer, but only 6 digits of preci- 
sion are printed on the CRT screen. 

Since single precision is the automatic default condition, it is not 
necessary to use DEFSNG unless you need to change the precision of vari- 
ables previously defined as INTEGER or DOUBLE PRECISION. 

b) Double Precision Variables 

You are already aware (See Lesson 5.) that it is possible to 
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obtain variables of greater accuracy (16 digits instead of 6 digits) for a 
variable by inserting 

DEFCBL X,Y 

near the beginning of the program. This causes every variable beginning 
with the letter X or the letter Y to be double precision (17 digits inter- 
nally, 16 digits displayed). It is also possible to indicate a range of 
initial letters in a DEFCBL statement. For example, DEFDEL A,C,S-W 
will cause every variable beginning with any of the variables A,C,S,T,U,V, 
W to be double precision unless it carries a special designator such as 
! or % (see below). 

c) Integer Variables 

It is also possible to specify that some variables are of integer 
form rather than the usual floating-point numbers. On short programs it 
is not worth the effort to do so, but long-running programs frequently 
can be speeded up noticeably by inserting 

DEFINT K,L,B-E 

early in the program for those variables you know will always be integers 
in the range from -32768 to +32767. The DEFINT statement given above 
forces every variable beginning with K,L,B,C,D,E to be integer form. One 
of the most important savings is to make integers of the variables used 
in FOR. ..NEXT loops when appropriate. (Obviously, they must not take on 
fractional values in the step size.) 

d) String Variables 

It is also possible on your TRS-80 LEVEL II BASIC to define a string 
variable (indicated by annexing a $ to any variable name) used to store 
strings (sequences) of letters and other characters up to 255 characters 
per string. 

Examples A$, C$, GE$, Pl$, P2$ 

You may also define regular variables as string variables by using DEF3TR 
but be careful in doing this because if you designate DEFSTR A,D-<} then 
every variable beginning with A,D,E,F,G will be a string variable and as 
such may not be used in arithmetic. Your authors usually prefer to use 
the annexed $ to indicate a string variable. 

Try this little program: 



TELLS ME TO KEEP A SEQUENCE 



NEW lENTERl (STRING) THAT WONT BE USED 

10 CLS V F0R ARITHMETIC 

100 INPUT "PLEASE TYPE YOUR NAME" 
110 PRINT : PRINT : PRINT : PRINT 
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continued on next page. 



120 PRINT "HELLO"; N$; "." : PRINT "I HOPE YOU ARE ENJOYING THIS COURSE.' 
130 GOTO 110 



RUN ENTER 



Try it out on your computer. Depress | BREAK! to stop the program 



The output is a bit fast to read isn't it? To slow down the pro- 
gram, make it count from 1 to 500 after it prints by inserting 

125 FOR Q = 1 TO 500 : NEXT Q 

RUN it again. 

Try several different versions of your name. 

Try inserting your social security number or phone number instead of your 

name. 

String variables and string instruction are discussed further in Lesson 14. 



e) Individual Variable Type Designators 

It is also possible to make particular variables into integer 

variables by annexing a % sign after it — without changing other vari- 
ables that begin with the same letter. Ear example 



100 


iOR M = 1 TO 50 


110 


KB JS=1 TO 100 


Jkmf) 


PRINT K% ; 


130 


next m> 


140 


mbikl A* 


will 


run faster than 


100 


TOR X = 1 TO 50 


110 


FOR K = 1 TO 100 


120 


PRINT K; 


130 


NEXT K 


140 


NEXT X 



The first program runs in about half the time of the second program. 

It is possible to have particular variables as regular single preci- 
sion floating-point variables (6 digit precision) by annexing a ! to 
double precision floating-point variables (16 digit precision). Likewise, 
it is possible to have particular variables as double precision floating- 
point variables by annexing a # to any standard variable name. The type 
designator (% = integer, ! = single precision, # = double precision) takes 
precedence over an earlier DEF statement. 
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Annexed Typical Variables 

Variable Type Character Examples lb Be Stored 

Integer Variable % A%,X%,K%,NI% -2746,-5,0,1,17,3000 

Single precision ! A ! , BX ! , XI ! 4 , -50 . 73 , . 1276 , 1 . 23456E+09 

(6 digit) variable 

Double precision # A#,XI#,C#,BV# 1.234567887654321D+15 

(16 digit) variable 

Note: If you wish to enter or use double precision constants, you can 
save a lot of trouble by placing a D at the end of it. Thus A# = 1234. 7D. 
Also, use D in place of E to indicate the exponent of 10. Thus: 

A = 6.02486E+23 

A# = 6.024859316852145B+23 

Note that B, B%, B! , B# and B$ may all be used in the sane program and 
each is a name for a different variable. 



SUBSCRIPTED VARIABLES 

The statement 

DIM X(15), Y(15) 

permits you to have sixteen different X-values 

X(0), X(l), X(2), X(3), X(4),..., X(14), X(15) 

and sixteen different (associated?) Y- values 

Y(0), Y(l), Y(2),...,Y(14), Y(15) 

in the computer at the same time . 

Note that 

X(3) and X3 are different variables, and each is different from X. 

Such "subscripted variables" are important in statistics, where it is 
eorrmon to have sets of related data, say 25 temperatures and the 25 re- 
lated product yields. The following program permits you to input 25 sets 
(T,Y) of temperature-yield data. 



10 


DIMT(25), Y(25) 


100 


FOR K = 1 TO 25 


110 


INPUT T(K), Y(K) 


150 


NEXT K 



Note that we have not used location T(0) nor Y(0), but we could have. 

150 



The program might be expanded to also compute the average T value and the 
average Y value by accumulating the sum of the T's and the sum of the Y's. 
After the sums are computed, divide each by the number of data pairs 
(here 25) and store the result in T()D) and Y(0) 



1(3 DIM T(25), Y(25) 

90 T = : Y = 

100 FOR K = 1 TO 25 
110 INPUT T(K), Y(K) 
120 T = T + T(K) 
130 Y = Y + Y(K) 

150 NEXT K 

160 T(0) = T/25 

170 Y(0) = Y/25 



{Mote.: JhJj> aj> only a ^ftagrmnt oh a. 
pn.ogKa.rn. It peJunltA you to extex 
data. Into T( ) and V{ }, bat doeJ> 
not pft.odu.ce, on. PRINT anything. } 



Note that T and Y were used inside the K)R. . .NEXT loop rather than using 
T(0) and Y(0). This saves computer time. Most expert programmers consid- 
er it gauche to use a subscripted variable whose subscript does not change 
inside of a K)R. . .NEXT loop. 

If desired, the program could be extended to compute standard devia- 
tion, correlation, mode, median, and other statistical measures. If you 
are familiar with statistics, you can extend the program yourself. You 
can even compute a "line of regression" or a "curve of regression" for the 
given data. 

Our purpose was to introduce subscripted variables, a very handy tool 
for solving many problems. 
ARRAYS 

It is also possible, in Level II BASIC to store arrays (matrices) 
of numbers (or letters or symbols). Consider a set of class grades for 
20 students on each of six tests. Although it is possible to store stu- 
dent names, it is simpler to use student numbers instead. 



The 20 by 7 array is: 












Col 


Col 1 


Col 2 


Col 3 


Col 4 


Col 5 


Col 6 


Student 
ID no. 


Test 
1 


Test 
2 


Test 
3 


Test 
4 


Test 
5 


Test 
6 


Row 1 


12516 


86 


74 


92 


71 


77 


64 


Row 2 


12617 


57 


62 


71 


69 


79 


85 


Row 3 


77969 


94 


98 


• 


Cl 


mtinue.d on 


next page 
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Row 4 



38491 



Row 20 21201 87 93 91 . 92 

We represent it in the computer by 

DIM G(20,6) 

This gives an array with 21 rows and 7 columns, for storage. We shall 
not use row for the storage data in this problem, but shall use column 
to store the student's ID Number. 

The 94 grade un test 1 of student number 3 (ID = 77969) is located in po- 
sition (3,1). Position (2,4) contains the grade of 69 for the 2nd student 
(ID = 12617) on the 4th test. 

The following program will read in the grades for the C-th test, to be 
supplied by the teacher. For C = 0, the student ID# may be typed in, if 
desired. 



1 
10 

w 

lip 

120 
130 
140 



REM PROGRAM TO INPUT QUIZ GRADES FOR CLASS OF 20 STUDENTS 

DIM G(2jZ>,6) 

INPUT "TYPE TEST NUMEER PLEASE"; C 

FOR R = 1 TO 20 

PRINT "TYPE GRADE ON TEST" ;C; "FOR STUDENT #"; G(R,0), 

INPUT G(R,C) 
NEXT R 



The following program will display the entire array of scores, as 
well as computing and printing the average grade on the six tests for all 
20 students. It assumes the data is already stored in the computer (from 
tape, or by hand, or ??). This program may be combined with that above. 
If no grades are entered, the computer will print zeros. 
2 REM PROGRAM TO DISPLAY AND AVERAGE STUDENT GRADES ALREADY IN THE 

COMPUTER 
10 DIM G(20,6) 
200 FOR R = 1 TO 20 
210 T = 

220 PRINT "STUDENT #" ;R, "I.D.#"; G(R,0), 
230 FOR C = 1 TO 6 
240 PRINT G(R,C); 
250 T = T + G(R,C) 
260 NEXT C 
270 PRINT "->"; T/6 
280 NEXT R 
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Examine the program to understand how it works, 
questions, ask your instructor. 



If you have any 



Note the use of indented instruction inside each FOR. . .NEXT loop . This is 
not important as far as the conputer is concerned, but is a very helpful 
practice to help humans to perceive the structure of your programs. Your 
author sincerely recommends the practice. 
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We have collected a few tips and cautions that you may never need, 
but that you still may find helpful. 

TIPS 

Don't let anyone spill beverage on or near your TRS-80. The only 
way to do this may be to forbid beverages near the computer. It is up 
to you, but a spilled Coke portends real grief forever afterward. 

If you are plagued by double letters in your typing, it is because 
dust and dirt are forcing your TRS-80 to get multiple signals on a single 
key stroke. LEVEL II BASIC will have this problem more frequently than 
LEVEL I, since LEVEL II stores key strokes internally (great for fast 
typists). Keyboards manufactured in the 1980 's seem to be less plagued 
with keyboard bounce than earlier TRS-80' s. It is possible to remove the 
key tops and gently clean the contacts, but it is a lot easier to use the 
KEYBOARD DEBOUNCE (KBFIX) program furnished with LEVEL II TRS-80. It is 
a good idea to use a dust cover on the keyboard providing it is turned off 
(else heat may build up). 

Begin your programs in line 1pp. Use lines 1 to 99 to identify your- 
self and program rather completely, as well as giving credit to any source 
you used before modifying your program. 

If you would like your REM to stand out even more than it does by 
inserting 5 blanks after the REM, try depressing Q] after typing REM 
and then type six or eight spaces before your REMark. 



ERROR OS (out of string space) can frequently be remedied by insert- 
ing CLEAR n with a larger n value (say 10p, 500, or MEM/4). The default 
value is CLEAR 5(2 whenever you turn on the TRS-80 or type NEW 1 ENTER 



If you use a BASIC program from a book or magazine, watch for RND(l) 
statements. Some BASIC'S use RND(l) where the TRS-80 uses RND((Z>), namely, 
to generate a random decimal between and 1. 
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If you type LLIST instead of LIST and do not have a line printer 
turned on, the TRS-80 will lock up. Open the small door at the back left 
of the keyboard unit and push the small round reset button. 

The TRS-80 is designed for most room temperatures, but if you have 
clutter around it, that prevents air circulation. If you must use it in 
a hot place, put a couple of Txlx5-inch blocks under the feet to permit 
extra air circulation. 

Programs that produce a full screen of output can be e nded wi th 
a tight loop (such as 9999 GO TO 9999 ) to prevent having /reADY 
break into the screen. Use [BREAK! to get out of a >_ 
tight loop. 

If your program seems allright, but you get an SN ERROR that you 
can't identify, you may have depressed the | SHIFT [ key while typing that 
line. (I tend to do this on i .) Retype the line in question, watch- 
ing your I SHIFT 1 key carefully. 

If you are an electronics buff, by all means get the TRS-80 Micro- 
computer Technical Reference Handbook (1980, $9.95, Radio Shack). It 
has wiring diagrams you'll want to have. Remember, if you open the 
TRS-80 case, your guarantee is void. 

Use CLOAD? to verify your Level II BASIC programs. 

Double precision variables are not acceptable in FOR. . .NEXT loops. 

If you have experienced problems with double precision variables not 
converting correctly (TRS-80 does not use decimal notation internally) , 
it may be because you have not entered them correctly. If a double pre- 
cision variable has fewer than 7 digits when typed, follow it with the 
letter D. 

Run this to see what is meant. 

100 S = .1 
110 D# = .1 
120 PRINT S,D# 

Your output will look something like 

. 1 . 1000000014901161 
If you change 110 to 
110 D# = .ID 
all will be well. Try it and see. 
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Static electricity can play havoc with your TRS-80 and cas- 
settes. If low humidity and carpet friction produce static electricity 
shocks in your computer room, do something about it. Remove the carpets 
or put down a non-static-producing rubber or plastic pad and increase 

the humidity m the room, if possible. 

Don't force the HOV-plug on your video display into a socket or ex- 
*?f 1Q ?w , * X f n0t ^g^ to Preserve polarity. One blade on the 
video HOV-plug is larger than the other— in this way, the video displav 
chasis is grounded through the power cord. If you use an extension cord 
or multiple-outlet plug that does not preserve this polarity, you can get 

nAT J?° doubt you have already discovered the HORIZONTAL HOLD and VERTI- 
r 1 ? ^ controls located on the rear of your video display. Once set 
it snould not be necessary to readjust them very often. 

The BRIGHTNESS (B) and CONTRAST (C) controls are located on the front 
bottom right of your video display. Keep each in about the middle of the 
^f™; OT i? ngthen tube llfe > m NOT AWUST TO MAXIMUM BRIGHTNESS OR 
UJNIfRAST. It may burn your tube if the display remains fixed. 

Turn OFF the video display whenever you leave the computer even if 
you leave the computer running. 

Electrical interference from an elevator or other motor, a faulty 
flourescent light or even the switch in a typewriter are not apt to inter- 
fere with your TRS-80 unless you have added disk to your system. If you 
are considering disk or other expansion interface items, you should add a 
couple of line filters at your power source as well. 
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SAVING MEM3RY SPACE 

If you have only 4K of memory, you may find that unwelcome OM ERROR 
message signifying all of the available memory has been used or reserved. 
There are several things you can do to conserve memory space. 

Cut down on the size of any arrays used. 

Use multiple statements per program line with a colon between state- 
ments. 

Use integer variables whenever possible — in FOR K% = 3 TO 300, 
for example. Use the same variable in all FOR . . .NEXT loops that 
are not nested. 

Delete unnecessary parentheses in arithmetic statements. 

Cut down on both the number and length of string variables. 

Delete unnecessary spaces in all statements. 

Eliminate extra variables, reuse variables no longer needed, keep 
variable names short. 

If necessary, also delete REM statements. 

ERROR OM can sometimes be cured providing you are using no string 
variables by inserting CLEAR at the beginning of your program. 



OS ERROR frequently seems to be the result of a missing CLEAR 
statement, where n is greater than 50. Try CLEAR 20(3 or 
CLEAR MEM/4. 



n 
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SPEEDING UP PROGRAMS 

Although computers are fast, they do run into tine difficulties on 
long programs. Usually the solution is to think hard about the algorithm 
being used. It is frequently possible to devise a much faster algorithm 
once the problem is fully understood. There are also programming tech- 
niques, known to most experienced computists, that save considerable time. 

Don't use subscripted variables inside of a FOR. . .NEXT loop unless 
the subscript is changing . 

Combine several statements per line (separated by colons). 

Use integer variables in FOR. . .NEXT loops that have integer step 

Define the most commonly used variables first— this puts them near 
the top of the variable table and saves look-up time if many 
variables are involved. 

Don't recompute values needed repeatedly; store them instead. 

(This is particularly vital inside of nested FOR. . .NEXT loops. ) 

Use small data sets and short FOR. . .NEXT loops in debugging long 
programs. 

Use faster forms whenever possible. 
B + B is faster than 2 * B. 

.2 * C is faster than C/5. (Avoid division when possible.) 
D*D*D*Dis much faster than D + 4. 

Don't recompute trigonometric or log functions for the same value. 
To evaluate Y = 5 sin X + 8 sin 3 X - 2 sin 2 X 
use S = SIN(X) 
Y = ((5 * S + 8) * S - 2) * S * S. 

Use POKE graphics. This can cut graphics time to 1/5 of SET(X,Y). 

Use stored constants (a letter like B or P) rather than numeric 
constants in the statements that are executed frequently. 

Probably the most important thing you can do to make programs run 
faster is to analyze which subpart of your program uses the greatest 
amount of time and then rewrite that portion as a subroutine in Z-80 
machine language. Call the subroutine using the USR(X) routine. However, 
that requires learning another language. See Chapter 8 of your TRS-80 
Level II BASIC Reference Manual under USR(X) and a text on Z-80 machine 
language. Radio Shack has a book, TRS-80 Assembly Language Progranming 
by Vfa. Barden, Jr., (Cat. #62-2006) which will be helpful if you are suf- 
ficiently interested to wish to learn Z-80 chip language. 
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ERROR MESSAGES 

We have discussed, under EDITING, Lesson 8, the appearance on the screen 
of the message 

?SN ERROR IN 1(3(30 

LEVEL II BASIC also has other messages that help you discover errors in 
a program. The following ERROR messages are among those you may encoun- 
ter. (If you have a disk on your system— consult the appropriate refer- 
ence manual for additional messages.) 

EXPLANATION OF ERROR MESSAGES 

BS Subscript out of Range: An attempt was made to assign a subscripted 
variable or a matrix element with a subscript beyond the DIMensioned 



range. 



CN 



Can't Continue: A CONT was |ENTERled at a point where no continuable 



program exists, e.g. , after program was ENDed or EDITed 



DD Redimensioned Array: An attempt was made to DIMension a matrix which 
had previously been dimensioned by DIM or by default statements. It 
is a good idea to put all dimension statements a t the beginning of 
a program . 

FC Illegal Function Call: An attempt was made to execute an operation 
using an illegal parameter. Examples: square root of a negative 
argument, negative matrix dimension, negative or zero LOG arguments, 
SET (X,Y) with one value out of bounds, etc. Or USR call without 
first POKEing the entry point. 

ED Bad File Data: Data input from an external source (i.e., tape) was 
not correct or was in Improper sequence, etc. 

ID Illegal Direct: The use of INPUT as a direct command, without a 
statement number. 

L3 DISK BASIC only: An attempt was made to use a statement or function 
which is available only when the TRS-80 Mini Disk is connected via 
the Expansion Interface. 

LS String Too Long: A string variable was assigned a string value which 
exceeded 255 characters in length. Break it into two or more strings. 

MO Missing Operand: An operation was attempted without providing one of 
the required operands. 

NF NEXT without FOR: NEXT is used without a matching FOR statement. 
This error may also occur if NEXT variable, statements are reversed 
in a nested loop. 
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NR No RESUME. End of program reached in error-trapping mode. 

CD Out of Data. A READ or INPUT # statement was executed with insuffi- 
cient data available. DATA statement may have been left out or all 
data may have been read from tape or DATA. 

CM Out of Memory. All available memory has been used or reserved. This 
may occur with very large matrix dimensions, nested branches such as 
GOTO, GOSUB, and FOR. . .NEXT loops, or with large strings. Usually the 
program can be rewritten so that it uses less memory. See separate 
suggestions. 

OS Out of String Space. The amount of string space allocated was ex- 
ceeded. Usually this can be fixed by starting program with CLEAR n 
for some n > 50 or by using CLEAR MEM/2. 

OV Overflow. A value input or derived is too large or small for the 
computer to handle. 

RG RETURN without GOSUB. A RETURN statement was encountered before a 
matching GOSUB was executed. 

RW RESUME without ERROR. A RESUME was encountered before ON ERROR GOTO 
was executed. 

SN Syntax Error. This usually is the result of incorrect punctuation, 
open parenthesis, an illegal character or a misspelled command. 

ST String Formula Too Complex. A string operation was too complex to 
handle. Break up operation into shorter steps. 

TM Type Mismatch. An attempt was made to assign a non-string variable 
to a string or vice- versa. 

UE Unprintable Error. An attempt was made to generate an error using an 
ERROR statement with an invalid code. 

UL Undefined Line. An attempt was made to refer or branch to a nonexis- 
tent line. 

/P Division by Zero. An attempt was made to use a value of zero in the 
denominator . 
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USING KEYBOARD COMMANDS IN YOUE PROGRAMS 



TRS-80 Level II BASIC has an unusual extra "goodie" you may find 
handy. Conmands such as RUN, NEW, LIST, DELETE 100-499, and similar 
keyboard conmands can be inserted into and executed from a program. 
Try the following programs to get the feel of the idea. 

109 CLS 

110 K)R K=l TO 30 

120 PRINT K; 
130 NEXT K 
140 PRINT 
RUN 

Then add 

150 RUN 
and RUN it again. 
Now, change 150 to 

150 LIST 
and RUN it again. 

Depress BREAK and change 150 to 
150 DELETE 109 

LIST the program. RUN it, then LIST it again. Note that 109 has dis- 
appeared. Change 150 to 150 NEW 
and RUN it again. 

It seems rather straightforward until you discover that if you re- 
enter the program 109 to 140' and add 

150 LIST 
160 RUN 

the program never gets to 160. Most commands (RUN is an exception) send 
the computer back to READY mode instead of continuing the program. You 
can overcome this by using 

PRINT @ 970, "PLEASE TYPE RUN (ENTER)." 

just before the DELETE or LIST command. 

Try the program on the following page. 
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109 CLS 

110 FOR K=l TO 30 
120 PRINT K; 
130 NEXT K 

140 PRINT : PRINT 

150 PRINT "PLEASE TYPE RUN (ENTER)" 

160 DELETE 109-160 

165 PRINT : PRINT : PRINT 

170 PRINT "WHEN THIS IS LISTED NOW, LINES 109 TO 160 WILL BE MISSING.' 

180 PRINT : PRINT 

190 LIST 

RUN j ENTER I 

Advanced programmers use this technique to get extra space when 
OS ERRORS plague them. Early parts of the program can be deleted before 
the string variables are used. A sanple might be: 

10 



100 



499 

504 REM TRANSITION TO GET MORE STRING SPACE 

505 CLS 

510 PRINT : PRINT 

515 PRINT "PLEASE TYPE RUN(ENTER)" 

520 DELETE 10-499 

600 REM MAIN PROGRAM USING STRINGS STARTS HERE 

610 CLEAR 5000 : DIM B$(40) , M$(50) 

620 PRINT "THIS IS THE MAIN STRING PROGRAM " 

700 LIST 
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You are already familiar with the instruction 

PRINT 

which gives a blank line and 

PRINT A,B,C,D 

which gives wide (4 column) spacing where a comma is used and close-packed 
spacing where a semicolon is used. 

PRINT A; B,C,D 

is also familiar (see Lesson 2). 

BASIC has several other useful instructions including 

PRINT TAB( ) 
PRINT USING A$,K 
PRINT STRING$(K,*'#") 
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EXTENDED PRINT INSTRUCTIONS 
PRINT TAB [nvpfidA&iQn) 

The " nxpxeAition" may be a constant or a variable or a conputed 
expression which is an integer between and 255. This "tabs" the cursor 
to the indicated position. It is not possible to irove the cursor to the 
left by tabbing. If the cursor is already to the right of the TAB ex- 
pression, the TAB is ignored. Any indicated printing occurs at the place 
where the cursor is. 

Try the following: 

100 A = 3 

110 B = 5 

120 PRINT TAB(A) A; TAB(B) B; TAB(A+B) "A+B"; TAB(35) "35"- 
TAB(10*B+A) "Z'« ' 

on your TRS-80. 

The TAB ( ) function is particularly useful in graphing and the 
creation of special tables and forms. 




PRINT TAB ( ) 
HEL.P5 ME HAKE 
| NEAT 'C0LU!1NS.\ 

REMEMBER, I 
an't TAB MCKWARD-) 
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PRINT USING itMMQ;vaJLaz 

It is possible to format the output in a more precise manner than 
is available on the ordinary PRINT instruction employing ; , and " " 
or even the PRINT @ instruction. 

The PRIM? USING instruction makes this possible. Try the following 
program. 

1/) CLS 

9j6j6 PRINT "PLEASE TYPE YOUR NAME, INCLUDING MIDDLE INITIAL" 

916 INPUT N$ 

1666 K)R K = 917 TO 1130 STEP 13.25 
1M) PRINT "PAY TO THE ORDER OF "; N$; " "; 

162j6 PRINT USING "**$###.## DOLLARS"; K 

1656 NEXT K 

In instruction 162/), the "**$###.## DOLLARS" gives the format in 
which the material is to be printed. The **$ says to fill up any space 
before the first digit with asterisks and then a $. The decimal point 
followed by two #-signs ( .##) indicates exactly two places beyond the 
decimal point are to be printed. Note the change in number of * where 
the amount changes from $996.50 to $1009.75 in the output when you run 
this program. Consult your TRS-80 Level II BASIC Reference Manual , Chap- 
ter 3 for additional information. 

PRINT USING statements may use any of the following field specifiers; 

Numeric Character Function Example 

# Numeric field (one digit ### 

per #). 

Decimal point ##.### 

position. 

+ Print leading or +#.### 

trailing sign (plus #.###+ 

for positive num- -#.### 

bers, minus for #„###- 
negative numbers). 

Print trailing sign ###.##- 

only if value print- 
ed is negative. 

** Fill leading blanks **###.## 

with asterisk. 

{Continued nnxt page) 



165 



Numeric Character Function 



**$ 



+ + -(- + 



String Character 
i 



Place dollar sign 
immediately to left 
of leading digit. 

Dollar sign to left 
of leading digit and 
fill leading blanks 
with asterisks. 

Exponential format, 
with one significant 
digit to left of 
decimal . 

Function 

Single Character 

String with length 
equal to 2 plus 
number of spaces 
between % symbols. 



Example (conZlnutd) 



Example 
i 



% % 
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PRINT STRING? (K, "CHARACTER" or NUMBER) 

This is very useful in graphing since it returns a string of K 
characters each of which is the character enclosed in quotation marks. It 
is also possible to use the ACSII number associated with a given charac- 
ter. The value K must be between p and 255, as must any number used for 
ASCII characters. See Lesson 4 for list of ASCII equivalents. 

PRINT STRING$ (25, "#") produces 

M##########m####m####§ (25 of them) 

on your screen. 

The following program plots the number K followed by a string of K 2 sym- 
bols: 

1PP CLS 

UP FOR K = 1 TO 10 

12p L = K*K 

13/) PRINT K; STRING$(L,"%") 

135 PRINT 

140 NEXT K 

150 GOTO 150 

Try it on your screen and see what happens. Then change the symbol in- 
side the " "to some other symbol of your choice. 

Lesson 4 included a program to generate a bar graph (histogram) . 

5 CLEAR 200 

10 CLS 

100 PRINT @ 6, "GRAPH OF ENROIiMENTS AT THE UNIVERSITY OF OKLAHOMA" 

110 READ Y,D 

115 IF Y < THEN 115 

120 DATA 1940,21,1950,28,1960,32,1970,51,1980,59,-1,-1 

130 PRINT Y ; STRINGf (D , 143 ) 

140 GOTO 110 

The instruction 

5 CLEAR 200 clears all variables and sets aside 200 bytes for string 
variable use. This is maybe more than we need. 

110 READ Y,D reads two values from the DATA string. 

Instruction 

130 PRINT Y; STRING$(D,143) prints the current value of Y (read in 110 
from DATA) and follows this with a D-long string of the symbol 1 
having ASCII equivalent of 143 which is I 
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The sans bar graph results as in the Lesson 4 program using SET (X,Y) : 
SET (X,Y+1), but in much less time and with a shorter program. The DATA 
statement is also easy to change in the new program. 

Note that if your D value is greater than 59, the bar will be continued 
on a second line. However, D may be as great as 256 if desired, but 
you'll need to use CLEAR 250 if D is that large. 

Here is another program that may interest you. Try it out your- 
self. 

100 CLEAR 63 

110 CLS 

120 TOR Y = TO 960 STEP 64 

130 PRINT @ Y, STRING$(63,191) 

140 NEXT Y 

150 COTO 150 

After you see what it does, run the same program with 100 changed to 

100 CLEAR 60 [why did you geX OS ERROR, U yon did?) 

You may also wish to change to 100 CLEAR 100 and then change STRING$ 
(63,191) to STRING! (64, 191). See if you can explain the unexpected 
dark band at the bottom of the screen when you RUN it. 

Sometimes it is handy to be able to clear only a portion of the 
screen. Try this: 

109 CLS 

110 FOR K=l TO 205 
120 PRINT K; 
130 NEXT K 

140 PRINT 

200 PRINT @ 256, CHR$(30); "THIS IS THE NEW LINE FROM STMT 200."; 

300 PRINT @ 512, CHR$(30); "THIS CAME FROM STATEMENT 300."; 

500 GOTO 500 

RUN 



Depress [ BREAK j to regain control. 

After you have RUN this program a couple of time with the semi- 
colon at the ends of lines 200 and 300, remove one of the semicolons and 
RUN the revised program. 
Investigate what happens if you insert: 

299 PRINT CHR$(23); 
You may also wish to use CHR$(31) in statement 300 to see what happens. 
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Mare Graphics 

lesson 4 provided an introduction to graphics that may be adequate 
for your needs. However, you should know that the TRS-80 has many graphic 
abilities in addition to the 



CLS 

SET (X,Y) 
RESET (X,Y) 
POINT (X,Y) 



CHR$(N) 



clears screen 

turns on rectangular spot at (X,Y) 
turns off rectangular spot at (X,Y) 

tests to see if point (X,Y) is turned on, if so it re- 
turns a logical TRUE (-1), otherwise a logical FALSE (0). 
Can be used in IF instructions (See Lesson 14, for details.) 
on logical operators. 

produces actions, letter or symbol that corresponds to 
code N where < N < 255 



For example: the operator ASC(symbol) is the inverse of CHR$(N). It 
produces the numeric (ASCII) code corresponding to the symbol in parens 
theses (the first symbol in the string, if the parentheses contain a 
string of mare than one symbol). This is used in an excellent cipher pro- 
gram considered in Lesson 14 of this text. 

In Lesson 4 you ran the following program; 



10 CLS 

100 FOR K = 33 to 191 
11(3 PRINT K, 

120 FOR L = 1 to 45 

130 PRINT CHR$(K) ; 

140 NEXT L 

150 PRINT 

170 NEXT K 

200 GOTO 100 



Ji yovJt TVS- SO &how& both wppoJt and 
lowtt caie IqJX&iA [a modification 
you may obtain, i^ ne,e,dnd) CHR$(K) 
\ok K=65 to 90 will display wppex 
cait IzttaKb A to I ttiktit K=96 to 
111 dlAplay-t) thz cotuieA ponding lowvt 
cat>n (SHIFT) i>ymbotf> conxeA ponding 
to @,AtoZ,+,+ , «- , +,— . Mo&t TPS- 
SO'-i, display only uppeJi cai& loJXeJU, 
()0H both ftjxngojs . 
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Run it again now. Change instruction 100 to 

1(3(3 KB K = 20 TO 255 

and nm it again, after turning to the table given in Lesson 4 that 
discusses the effect of CHR$(N) for various N values. 

The pixel-blocks that appear corresponding to 

PRINT CHR$(K) 

for K between 129 and 191 are particularly useful in speeding up graphics. 
At first glance they may seem haphazard, but actually the choice of num- 
bers associated with the graphic you wish to light up is both logical and 
easy to use, once it is explained. Each large block (letter & space be- 
tween lines) is divided into six small rectangles (pixels) 



The individual pixels are numbered. 



1 


2 


4 


8 


16 


32 



lb light up the pixels numbered 1,2,8 and 16, 



Hi 



J 



32 



add the sum of pixels used: 1+2+8+ 16 =27 

and add that sum to 128 giving 

128 + (1 + 2 + 8 + 16) = 155. 
The instruction 

PRINT CHR$ (155) 
will light up the L_j — , desired pixels much faster than 

t 'A 

will SET (X,Y). 
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Much time can be saved in graphics by using CHR$( ), 
You may use the instruction 

POKE adckeA-i, plxtt numbzn. 

where addAUi is 1536(2 plus the number between and 1023 which locates, 
the position (see Lesson Four ) of the 6-block under consideration. 
The plxtt number is the number (128 + (sum of desired pixels)). 

For example: 

The entire 6-block ■, 9 has sum 63 so 128 + 63 = 191 is 



1 


2 


4 


8 


16 


32 



the pixel number to turn on the entire 6-block. 

The program 

100 CLS 

110 FOR X = 15360 TO 16383 

120 POKE X, 191 (See LeAt>on 76 ioK POKE InbtKuctLon.) 

130 NEXT X 

140 GOTO 140 

RUN 

will "white out" the entire screen in record time. It can be combined 
with: 

140 X = 2 + RND(121) : Y = 1 + KND(43) 

150 RESET (X,Y) : RESET (125-X.Y) 

160 RESET (X,46-Y) : RESET (125-X,46-Y) 

170 GOTO 140 

to produce a reverse art pattern, if desired. 

Try some additional experiments with the above 100-140 program such 
as combining it with 

140 PRINT @ RND(1000), "HI your name"; 
150 IF RND (0) >.01 THEN 140 ELSE 100 

or some other experiments of your own design. Remember as long as you 
keep beverages away from the TRS-80 and do not abuse it, you probably will 
not harm it by your programming experiments — and the best way to learn 
computing is to compute and then to think about the results before 
continuing . 

If you need to insert a variable number of blanks in a line 
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PRINT CHR$ (192+k) 

will insert k blanks for k = 0, 1, 2,... ,63. 

This may be used to good effect in graphing by using 

PRINT CHR$ (192 + X); "+" 

as in the following program to graph a portion of X = .062Y 2 which lies 
in the first quadrant. 

104 PRINT "GRAPH OF X = .062*Y*Y" 

110 Y = 30 

120 X = INT(.062*Y*Y) 

130 PRINT X; CHR$(192 + X); "+" 

150 Y = Y -2 

160 IF X >2 THEN 120 ELSE 160 



Note that it will be necessary to depress | BREAK | to get the computer's 
attention after the graph is plotted. (WHY)? 

If we had not created the "tight loop" by using ELSE 160, then when X 
got to be < = 2 the display screen would have inserted 



READY 
> — 



onto the screen and scrolled the top off the screen. If you are not sure 
of this, 

change 160 to 160 IF X >2 THEN 120 

and reRON the revised program. 

The second edition of the LEVEL II BASIC Reference Manual (appendix C/6) 
shows a map of the graphic pixel blocks and their corresponding numbers . Both 
the character spacing (16 lines of 64 characters )numbered from to 1023 
and the pixel locations for use with SET (X,Y) (48 lines with <Y <47 of 
128 pixels with <X <127) are shown mapped onto the grid. In each case 
the numbering starts in the upper left corner with or (0,0). 

If you remember the diagram on the right 
and use 128 + (pixels to be lighted), you 
will not need the reference. 
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STRING FUNCTIONS 

Let's re-examine the program of Lesson 4. 

10 CLS 

100 INPUT "PLEASE TYPE YOUR NAME"; N$ 

110 PRINT: PRINT: PRINT 

120 PRINT "HELLO ";N$;". ": PRINT" 



I HOPE YOU ARE ENJOYING THIS 
COURSE." 



125 FOR Q = 1 to 500:NEXT Q 
127 PRINT CHR$(23) 
13)6 GOTO 110 

Line 10 clears the screen. 

Line 10(6 prints what is in quotes and then awaits your input to string 

variable N$. 

Line 110 prints 3 blank lines (i.e., moves the next output line down 

3 rows). 
Line 120 prints HELLO, followed by whatever you typed into N$, and then 
on the next line prints 



I HOPE YOU ARE ENJOYING THIS COURSE, with a nine-space indentation, 
if you allowed nine spaces. 

Line 125 is a "timewaster" . It forces the computer to count from 1 to 
500 by ones before continuing. 

Line 127 changes all output to double-size until the next CLS instruction 
is executed. This eliminates half of the material currently on the 
screen, but new material will be printed in double-wide characters. 
Line 130 sends the program back to line 110 to print three more blank 

lines followed by HELIX) youA name, (double-size this time) etc., etc., 

until you depress the BREAK key to stop it. 
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That wasn't too hard was it? 

Play around a bit with the messages in line 120 and change them to suit 
your whim — be sure to include N$ as part of your output — note that N$ is 
a variable and must be outside of the quotes, separated from the quotes 
by semicolons. 

String variables use up quite a lot of memory space — not as much as 
on many computers, since the TRS-80 LEVEL II string variable uses only 
as much space as it needs — i.e. short strings use less memory than long 
strings. On many computers, string variables require the same (maximum) 
space even if not all is needed. If you have a 4-K Level II, you may run 
out of memory if you use many variable strings. The following program 
is designed to create very simplistic sentences and runs on 4-K. Note 
that string variables may be dimensioned like floating-point variables. 

2 CLEAR 1000 

5 CLS 

10 DIM N$(7), V$(2) 

100 PRINT "PLEASE TYPE 8 NOUNS." 

11(3 FOR K = to 7 

120 PRINT K + 1, : INPUT N$(K) 

130 NEXT K 

200 PRINT "TYPE 3 VERBS. PLEASE USE DIFFERENT TENSES." 

210 INPUT "1 ";V$(0) 

220 INPUT "2 ";V$(1) 

230 INPUT "3 ";V$(2) 

500 PRINT "THAT IS FINE. NOW I'LL CREATE SOME SIMPLE SENTENCES." 

600 PRINT N$(RND(8)-1) ; " " ; V$(RND(3)-1);" ";N$(RND(8)-1); " . " 

620 GOTO 600 

Put it on your computer and RUN it. If you should run out of memory 
(indicated by CM ERROR or OS ERROR) see if you can figure out what to do 
about it (see Lesson 11). 

It is also feasible to store the words in DATA statements. In this 
case they are read into the program using a READ statement as the follow- 
ing program, designed with tongue-in-cheek to generate impressive 
phrases for use in reports and grant requests. 

READ W$(I) is like INPUT W$(I), except that it obtains the string value 
for W$(I) from a DATA statement instead of from the keyboard. 

The individual string entries in the data statement are each enclosed 
in quotes and entries are separated by commas. The computer will go to 
the next DATA statement if the DATA statement on which it is working is 
exhausted. DATA may also read from tape — but not here. 
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DATA statements may also be used to store numerical data. In this case 
numerical variables (no $) are used in the READ statement and quotes are 
not used in the DATA statement. 

10 DIM W$(35) 

20 FOR I = TO 35 
30 READ W$(I) 

40 NEXT I 

50 DATA "FUNDAMENTAL", "BASIC", "INTUITIVE", "STUDENT-CENTERED", 
"HOMOGENEOUS", "MODULAR" 

51 DATA "PARALLEL", "CENTRAL", "EQUAL", "SUPERIOR", "COLLECTIVE", 

"JUDGMENTAL'' 

52 DATA "ACCOUNTABLE", "UNGRADED" , "NON-SEXIST", "BEHAVORIAL" , 
"SCIENTIFIC", "HUMANITARIAN" 

53 DATA "INTRINSIC", "FOUNDATION", "SUPPORTIVE", "LIMITED", "UNIFORM", 
"DISADVANTAGED" 

54 DATA "STRUCTURE", "PERFORMANCE", "REINFORCEMENT", "GROUPING", 
"CURRICULUM", "ENVIRONMENT" 

55 DATA "OBJECTIVE", "BOARD", "EXPERIMENT", "POLICY", "TEACHING", 
"EXAGGERATION" 

100 PRINT W$(RND (12 )-l);" "; 

110 PRINT W$(RND(12)+11);" "; 

120 PRINT W$(RND(12)+23) 

130 PRINT 

140 FOR Q = 1 TO 600 : NEXT Q 

150 GOTO 100 

It is easy to substitute words of the reader's choice by changing 
the DATA statements (50,51,52,53,54,55). The program chooses its first 
word from the first 12 words of the data list , the second word from words 
13-24 and the third word from words 25-36 in the DATA list . You may be 
interested in seeing what happens if you replace one of the words between 
quotes with a blank space between quotes. 



IsBslfHIlBf 
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A SEOOM) SENTENCE GENERATOR 

Let's write a program to generate more sentences. Consider the sentence: 

HELEN QUICKLY SAW THE RED POX. 
The parts of speech are 

NOUN ADVERB VERB ARTICLE ADJECTIVE NOUN 
Another sentence having the same pattern is: 

JOHN SADLY SWEPT THE DIRTY FLOOR. 

Let's write a program that will accept 10 nouns, 5 adverbs, 6 verbs and 
7 adjectives. We shall start by setting aside the needed space by losing 
CLEAR and DIMension statements. 

2 CLEAR 1000 

5 CLS 

10 DIMN$(9), A$(4), V$(5), J$(6) 

20 S$ = " " 

Next, we shall write a portion of the program to permit us to type in the 
words of our choice. 

100 PRINT "TYPE TEN NOUNS. DEPRESS (ENTER) AFTER EACH WORD." 

110 FOR K = TO 9 

120 PRINT K+l; 

130 INPUT N$(K) 

140 NEXT K 

150 PRINT 

That wasn't so hard was it? The computer numbers the stored words to 9, 
but humans seem to prefer 1 to 10, so that is what we used for each. 
Let's continue. 

200 PRINT "PLEASE TYPE 5 ADVERBS. DEPRESS (ENTER) AFTER EACH WORD." 

205 PRINT "ADVERBS USUALLY END IN -LY." 

210 FOR K = TO 4 

220 PRINT K + 1 ; 

230 INPUT A$(K) 

240 NEXT K 

250 PRINT 

300 PRINT "PLEASE TYPE 6 VERBS (PAST TENSE). DEPRESS (ENTER) AFTER 

EACH WORD." 

310 FOR K = TO 5 
320 PRINT K + 1 ; 
330 INPUT V$(K) 

340 NEXT K 

350 PRINT corvtxn.ae.d on ntxt page. 
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400 PRINT "PLEASE ALSO TYPE 7 ADJECTIVES. DEPRESS (ENTER) AFTER 

EACH TOED." 

410 FOR K = (3 TO 6 
420 PRINT K+l 
430 INPUT J$(K) 

440 NEXT K 

450 PRINT 

500 PRINT "THAT IS FINE . NOW, I'LL CREATE SOME SENTENCES FOR YOU." 

600 FOR Q = 1TO 1000 : NEXT Q 

610 PRINT 

620 PRINT N$(RND(10)-1); S$; A$(RND(5)-1) ; S$; V$(RND(6)-1); S$; "THE" 

; S$; J$(RND(7)-1); S$; N$(RND(10)-1); " . " 

630 GOTO 600 



RUN MTER 



A list of the major STRING instructions follows: 
Function Operation 



Examples 



ASCOs fling ) 
CHR$( code, exp) 



FRE(.6.t>u>ig) 



INKEY$ 



Returns ASCII code of first ASC(B$) 

character in string argument. ASC("H") 

Returns a one-character string CHR$(34) 

defined by code. If code, spec- CHR$(K) 
ifies a control function, that 
function is activated. (See 
Lesson 4 for equivalent list.) 



Returns amount of memory avail- 
able for string storage. Argu- 
ment is a dutrmy variable. 



FRE(A$) 



Strobes keyboard and returns a INKEY$ 
one-character string corres- 
ponding to key pressed during 
strobe (null string if no key 
is pressed). Usually used as 
300 A$ = INKEYS : IF A$="" THEN 300 ELSE PRINT A$; 

JSDTE: There is no space between the quote 
marks. Thus IF A$ is the null 
string, the program loops back to 
strobe the keyboard again. ELSE 
it prints the value typed and con- 
tinues v/ith the next instruction. 



LEN(4 tnlng) 



Returns length of AfU.ng(zero LEN(A$+B$) 

for null string). LEN( "HOURS") 
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Function 



Operation 



Examples 



LEFT$(4t^cng,n) 
MED$(4 fling , p , n ) 

RI(HF$({>fiing,n) 
STB$(nwtm/iic exp) 

STRING$(n,"dio/i") 



VAL(-6 tiling) 



Returns first n characters 
of 4 fving. 



Returns substring of kfiing 
starting at position p in 
btnLng and containing the 
next n characters. 

Returns last n characters 
of A fling. 

Returns a string representa- 
tion of the evaluated argu- 
ment. This converts numeric 
variables to string variables. 



L£FT$(A$,1) 

LEFT$(L1$4C$,8) 

LEFT$(A$,M+L) 

MID$(M$,5,2) 
MTD$(M$+B$,P,L-1) 



RKBT$(NA$,7) 
RICfflT$(AB$,M2) 

STR$( 1.2345) 
STR$(A+B*2) 



Returns a sequence of n "ckcui" STRING$(30,".") 
symbols using first character STRING$ (25, "A") 
of okax. Useful in creating STRING$(5,C$) 
borders or divisions of the 
output . 



Returns a numeric value cor- 
responding to a numeric- 
valued string. This is the 
inverse of STR$( ). 



VAL("1"+A$+"."4C$) 

VAL(A$+B$) 

VAL(G1$) 



(ifilng may be a string variable, expression, or constant.) 

To concatenate strings (put them together) , use the + operator as in 

"2" + "YOU 1 * + "76" = 2Y0U76 

Note that it is important to include desired leading and trailing spaces 
inside the quotes if you wish them to appear both in concatenation and 
in PRINT "YOUR NAME IS ";N$; " ." 
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A CIPHER PROGRAM 

The following program creates a simple, but reasonably secure cipher 
by first changing each character into its numerical ASCII equivalent, 
using the ASC( ) instruction, adding a computer-generated random num- 
ber to the ASCI I. code, moving the result to the desired range 48^N^90, 
and then changing the modified ASCII code into an appropriate symbol us- 
ing CHB$( ). Decipherment is done using the reverse process. You may 
change the basic key by changing instruction 135 to R = Q*R for some 
other appropriate Q- value. But don't make the change unless you under- 
stand random-number generators. The choice of Q is critical and depends 
upon the number system used. 

10 DIM C(500) 

40 L = 

50 INPUT "PLEASE TYPE YOUR KEY— POSITIVE TO ENCIPHER, NEGATIVE TO DE- 
CIPHER."^ 

60 R = ABS(K) : Rl = R 

70 PRINT "PLEASE TYPE COMPLETE MESSAGE FOLLOWED BY THE SYMBOL t ." 

100 P$ = INKEY$ : IF P$ = "" THEN 100 ELSE PRINT P$; 

105 IF P$ <= "/" THEN 100 

112 IF P$ = "+" THEN 200 

115 L = L+l 

117 IF K< THEN Rl = -1*R1 

120 C(L) = ASC(P$)+R1 

125 IF C(L)> 90 THEN C(L) = C(L) - 43 

130 IF C(L)< 48 THEN C(L) = C(L) + 43 

135 R = 197*R 

137 R = R-10000*1NT(R/10000) 

139 Rl = INT(.004*R) 

150 GOTO 100 

200 PRINT 

205 IF K < THEN 300 

210 FOR M = TO L-l STEP 5 
215 FOR N = 1 TO 5 

220 PRINT CHR$ ( C( M+N) ) ; 

230 NEXT N 

240 PRINT " "; 

250 NEXT M 

260 END 

300 FOR M = 1 TO L 
310 PRINT CHR$(C(M)); 

320 NEXT M 

400 END 

Note, that instruction 100 uses the INKEY instruction which strobes the 
keyboard once. If a key is depressed during the strobe, that value is 
stored in variable P$, otherwise P$ contains a null (not a blank, just 
nothing at all). The instruction 

IF P$ = "" THEN 100 ELSE PRINT P$ 
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sends the conputer back to 100 P$ = INKEY$ if P$ is blank, otherwise it 
prints the value of P$ (the key just depressed) on the screen and con- 
tinues to the next instruction 

105 IF P$ <="/" THEN 100 

which essentially refuses any symbols before /. (= 47 in ASCII-see Lesson 
4). 

112 IF P$ = "+" THEN 200 

sends the conputer to 200 when the message is complete, as indicated by 
typing |T] 

Lines 115 to 150 encipher or decipher the message depending upon whether 
the key K is positive (encipher) or negative (decipher). Each user will 
presumably have a different numerical key. 

205 IF K < <ZS THEN 300 

sends the computer to 300 if it is deciphering the message, and prints 
the entire message as one string (blanks between words were not enciph- 
ered — they could have been, but weren't). 

IF K >= then the conputer continues with instruction 210 to 260 which 
displays the enciphered massage in blocks of five symbols (a standard 
cipher practice). 

ROBOT COUNSELOR 

The following program, which runs on any 4K TRS-80, gives a brief in- 
sight into what programs that have more menr>ry available can be expected 
to do. 

1 REM ROBOT COUNSELOR 

2 RANDOM 
5 CLS 

7 CLEAR 100 

10 DIM G$(9) 

11 G$(0) = "HMM. . .MMM. . . ,VERY INTERESTING" 

12 G$(l) = "STRANGE. NOT ABNORMAL, YOU UNDERSTAND, JUST STRANGE" 

13 G$(2) = "FASCINATING" 

14 G$(3) = "UNUSUAL, BUT PERFECTLY REASONABLE UNDER THE CIRCUMSTANCES" 

15 G$(4) = "THERE MAY EASILY BE MDRE TO IT THAN THAT' 

16 G$(5) = "THAT MAY BE AN EXAGGERATION" 

17 G$(6) = "VERY COMMON IN TODAY'S WORLD" 

18 G$(7) = "BEWILDERING. I DO NOT UNDERSTAND IT" 

19 G$(8) = "I HOPE TOMORROW WILL BE BETTER" 

20 G$(9) = "SURPRISING IN THE LIGHT OF YOUR BACKGROUND" 

50 PRINT "I'D LIKE TO HELP YOU. MAYBE TOGETHER WE CAN WORK OUT YOUR 
PROBLEMS. PLEASE ANSWER ME WHEN I ASK YOU QUESTIONS." .. , 

180 



52 K)R Q = 1 TO 400 : NEXT Q 

53 PRINT 

55 PRINT "JUST TYPE YOUR ANSWERS, THEN DEPRESS THE WHITE (ENTER) KEY." 

57 K)R Q = 1 TO 300 : NEXT Q 

59 PRINT 

60 INPUT "PLEASE TYPE YOUR FIRST NAME AND DEPRESS (ENTER) KEY.";N$ 

61 PRINT : PRINT : PRINT "HI "; N$ 
70 PRINT : PRINT 

80 FOR Q = 1 TO 900 : NEXT Q 

100 PRINT : PRINT "HOW DO YOU FEEL, ";N$;"? PLEASE ANSWER IN ONE OR TWO 

WORDS." 

110 INPUT R$ 

115 FOR Q = 1 TO 500 

120 PRINT: PRINT: PRINT "OH, I SEE. THAT IS ";G$(RND(10)-1);"." 

130 FOR Q = 1 TO 800 + RND(1000) : NEXT Q 

139 PRINT 

140 PRINT "WHO DO YOU THINK MAKES YOU FEEL ";R$;"?" 
150 INPUT R2$ 

155 IF R2$ = "ME" THEN R2$ = "YOU ALONE" 

156 IF R2$ = "MYSELF' THEN R2$ = "YOU YOURSELF" 

157 IF R2$ = "YOU" THEN R2$ = "THE TRS-80" 
160 PRINT: PRINT 

163 FOR Q = 1 TO 100 + RND(500) :NEXT Q 

165 PRINT "WELL NOW, ";N$; ",THAT IS CERTAINLY "; G$(RND(10)-1);"." 

170 FOR Q = 1 TO 500 + RND(600) :NEXT Q 

180 PRINT:PRINT "DO YOU REALLY BELIEVE ";R2$;"MAKES YOU FEEL ";R$;"?" 

190 INPUT A$ 

200 IF A$ = "NO" THEN PRINT "WELL ";N$;", piEASE BE FRANK WITH ME. IT 

SEEMS ";G$(RND(10)-1);":": GOTO 140 

210 PRINT :PRINT: 

220 FOR Q = 1 TO 10 + RND(1000) :NEXT Q 

225 PRINT "THAT IS ";G$(RND(10)-1);". IT IS ";G$(RND(10)-1);"." 

228 PRINT "THINK ABOUT IT A BIT." 

229 PRINT:PRINT "IT IS INDEED ";G$(RND( 10 )-!);"." ;PRINT:PRINT 

230 PRINT "REALLY NOW, TELL THE TRUTH. PLEASE BE FRANK WITH ME." 
235 PRINT "IT SEEMS ";G$(RND(10)-1);"." 

240 GOTO 100 

After you have run the program a few times, change some of the phrases 
stored in G$( ) in lines 11 to 20. See if you can produce a more inter- 
esting ROBOT COUNSELOR program. 
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LOGICAL OPERATORS 

Have you wondered how the conputer handles IF instructions? 
The instruction 

IF X >13 THEN 420 ELSE 30 

examines the number stored in location X and if X is greater than 13, 
sends the conputer to statement 420 for its next instruction but if X is 
less than or equal to 13 sends the conputer to statement 30 for its next 
instruction . 

The instruction 

IF X >125 THEN X = 125 
examines the variable X and if X is greater than 125, sets X = 125. 

Actually the expression X > 125 is evaluated as a logical expression . 

If the current value of X makes X > 125 a TRUE statement, then the value of 
the logical expression 

(X>125) is -1. 

If the current value of X makes X > 125 a FALSE statement, then the value 
of the logical expression (X >125) is 0. 

You can examine this by running the program 

100 Y = 25 

110 FOR K = 1 TO 8 

120 X = K * Y 

130 PRINT K,X,(X> 125) 

140 NEXT K 

which produces the output 



1 


25 





2 


50 





3 


75 





4 


100 





5 


125 





6 


150 


-1 


7 


175 


-1 


8 


200 


-1 



The actual values (TRUE = -1, FALSE = 0) used are unimportant at this 
stage, and may vary on different computers. (LEVEL I TRS-80's use 
TRUE = 1, FALSE =0 .) 
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If the value produced represents TRUE (i.e., -1) then the remaining 
statements on the IF line are carried out (possibly several statements 
separated by colons ) . 

If the value produced represents FALSE (i.e., 0) then the computer 
skips the rest of the instructions in that statement line (possibly sev- 
eral instructions) and goes to the next line or the ELSE statement for 
its next instruction. 

It is possible to combine statements using logical operators: 

AND If both expressions are true TRUE (=-1) otherwise FALSE (=(3) 

OR IF either expression is true TRUE (=-1) otherwise FALSE (=0) 

NOT Interchanges TRUE (-1) and FALSE (0). 

EXAMPLE: 

100 INPUT A,B 

110 PRINT "A=""A "B=""B 

120 IF A> B THEN PRINT "A IS GREATER THAN B" 

130 IF (A >0) AND (A < 10) THEN PRINT " < A < 10." ELSE PRINT "A<= or 

A>= 10." 
140 IF (B>20) OR (B<-20) THEN PRINT "ABS (B)> 20." 
150 IF ((A> 0) AND (B>0)) OR ((A <0) AND (B< 0)) THEN PRINT "A*B> 0." 

ELSE PRINT "A*B<= 0." 
160 aOTO 100 

Actually the AND, OR, NOT logical operations also may be used to test 
individual bits in the binary storage of TRS-80 words since the opera- 
tions perform Boolean operations on the bits of numbers as well as on 
logical statements. Readers interested in such masking operations should 
first consult chapter 8 of the TRS-80 Level II BASIC REFERENCE MANUAL 
and then a text on Boolean (logical) algebra. 

PRACTICE SET 14 

1. Change the DATA words in the Buzz Phrase Generator program on page 
175 to generate buzz phrases for an area with which you are familiar. 
Show it to a friend. 

2. Change the G$( ) statements in the ROBOT COUNSELOR program pages 
180-81 to phrases you like better. Improve the logic (flow) of the 
program as well if you can. Demonstrate the resulting program to 
a friend. 
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WHERE TO LOOK FOR ADDITIONAL INFORMATION 

Your first source of additional information is the LEVEL I or 
LEVEL II BASIC REFERENCE MANUAL that cane with your TRS-80. You should 
also be receiving (free) the Radio Shack Micro Conputer Newletter if you 
filled out the card requesting it that came with your TRS-80. 

Fellow conputer buffs are another excellent source of information. 
If you are in real difficulty, don't hesitate to telephone or write to 
The Radio Shack Conputer Services Center in Ft. Worth. They maintain a 
staff of knowledgeable people who seem both willing and able to help TRS- 
80 owners. The address is 



Computer Services 
900 Two Tandy Center 
Ft. Worth, TX 76102 



Telephone : 

l-( 800 )-433- 1679 



They do not assist in debugging or writing programs, but will glad- 
ly assist you if you have questions about what a given BASIC or Z-80 
instruction does or about the TRS-80 hardware. 

Most computer programrers , either hobbyists or professionals, learn 
most about computing by burning midnight oil at the conputer. One learns 
to compute by computing, and then by analyzing the results. 

There seem to be clubs, conventions and magazines devoted to almost 
any hobby that interests you, and computers are no exception. There are 
even special clubs, conventions and magazines devoted exclusively to 
microcomputers. Some are so highly specialized that they concentrate on 
the TRS-80 microcomputer. Ask around your own area and see what micro- 
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computer clubs and/ or conventions are available. II no microcomputer club 
exists in your area, organize one yourself. 

No list of microcomputer magazines (journals) can ever be complete — 
new ones seem to start up almost monthly; others drop into oblivion. 
Some are excellent; others are a waste of funds. Most will send you a 
sample copy if you ask for one, then you can judge how well it fits your 
particular interests. 

Here are some that we take, with our favorites indicated by a star^. 
Prices were current at time of printing. 

Micro Computer Conference Proceedings 

The Best of the West Coast Computer Faires , 333 Swett Road, Woodside, 
CA, 94062. Set of 4 $53; Vols I (1976) & III (1978) $13.72 ea. ; 
Vols II (1977) & IV (1979) $14.78 ea. 

■Jjf- Show & Tell microOOMPUEER Conference Proceedings , Department of Math- 
ematics, University of Oklahoma, Norman, OK, 73019. (1978) $7.50; 
(1979) $10; (1980) $10; (1981) $10. Conference held in May each year. 

Micro Computer Periodicals 

^ Byte , Byte Subscriptions, P.O. Box 590, Martinsville, NJ, 08836, 
monthly, $15 per year. Both hardware and programs. Some technical 
material . 

Conputronics, TRS-80 Monthly News Magazine , P.O. Box 149, New York 
City, NY, 10956, monthly, $24 per year. Not worth the cost in my 
judgment-— request an examination copy and judge for yourself. Mag- 
azines change. 

The Computing Teacher , Computing Center, Eastern Oregon State College, 
La Grande, OR, 97850, bi-monthly, $8 per year. 

4fr.fr Creative Computing , P.O. Box 789-M, Morristown, NJ, 07960, monthly, 
$15 per year. Probably the best buy available. Something for every- 
one. Well written and authoritative articles. 

Data General News , Data General Corporation, Southboro, MA, 01772 
(free— devoted to their computers). 

Dr. Dobbs Journal of Computer Calisthenics & Orthodontia , The Peoples 
Computer Co., Box E, Menlo Park, CA, 94025, monthly, $12 per year. 
Advanced and excellent. 

•^ G§E2!L> Games Productions, Inc., 515 Madison Ave., New York City, NY, 
10022, bi-monthly, $5.97 per year. Not computer oriented, but lots 
of good ideas you can use. 

Games & Puzzles , Edu-Games (U.K.) Ltd., P.O. Box 4, London, England, 
N64DF 
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■$• Journal of Recreational Mathematics , Baywood Publishing, 120 Marine, 
Farmingdale, NY, 11735. Interesting problems, some computer related. 
Quarterly, $25. ($10 to individuals, home address, personal check.) 

Personal Computing , Circulation, Personal Computing, 1050 Common- 
wealth Ave., Boston, MA, 02215, monthly, $14 per year. 

4|t Computer Music Journal , ISSN 0148-9276, MIT Press Journals, 28 Carle- 
ton St., Cambridge, MA, 02142 Price $5 per issue, $20 per year. 

"fc PROG 80 , Softside Publications, 17 Briar Cliff Dr., Milford, NH, 

02055, monthly, $15 per year. Lots of goodies for the serious TRS-80 
programmer. 

Radio Shack Microcomputer Newsletter , Radio Shack, One Tandy Center, 
Fort Worth, TX, 76102. TRS-80 owners receive free for 6 months, then 
$12/year . 

Recreational Computing , People's Computer Company, 1263 El Camino 
Real, Box E, Menlo Park, CA, 04025, 6 issues per year, $10.00. 

The Recreational Programmer , Computer Software, P.O. Box 2571, 
Kalamazoo, MI, 49003, bi-monthly, $12 per year. 

Softside , Softside Publications, 17 Briar Cliff Dr., Milford, NH, 
02055, monthly, $15 per year. Lots of BASIC games in this one. 

T-PAL , The Mail Mart, Box 11102, San Francisco, CA, 94101, monthly, 
$24 per year. Seems expensive for what you get. Ask for a sample 
copy, it should have improved. 

^t TRS-80 Computing , Computer Information Exchange, P.O. Box 158, San 
Luis Rey, CA, 92068, monthly, $15 per year. Lots of goodies here. 

3fr 80-US , 80-NW Publishing, 3220 N. 32nd St., Tacoma, WA, 98407, sample 
copy, $3, $16 per year. Six issues annually. 

PAGE , Bulletin of the Computer Arts Society, John Lansdown, 50151 
Russell Square, London, WCIB4JX, England, quarterly, $51 per year 
(students, half-price). Or write Kurt Lauckner, Math. Dept. , Eastern 
Michigan University, Ypsilanti, MI, 48917. Devoted to computer 
assisted art. 

TRS-80 Users Group , 7554 Southgate Rd. , Fayetteville , NC, 28304, 
monthly, $12 per year. An informal publication for amateurs that is 
well worth the price. 

-Jfc- 80 Microcomp uting , Subscription Dept. , PO Box 981 Farmingdale, NY 
11737. Started in January 1980 and well worth the $25/year. This 
monthly slick magazine devoted to TRS-80 does not pull punches and 
keeps you informed on the latest updates, changes and evaluations of 
hardware and software related to the TRS-80. 

Popular Computing, PO Box 307, Martinsville, NJ, 08836 



186 



Where to Buy Programs 

We don't purchase many programs; we write our own because it is more 
fun. Most of the microcomputer magazines and conference proceedings carry 
programs. Some, you can obtain on tape at a modest cost. Most carry ads 
for programs that will run on your TRS-80. Some sell programs that are 
definite "rip-offs". Others are bargains. Few have adequate documenta- 
tion with them. Still, you will almost certainly be tempted to buy some, 
just to try them out. Read the ads. Go to your local Radio Shack (or 
Radio Shack Computer Center, if you have one... many middle- to-large cities 
do). Go to any other computer stores in your area and ask to see the pro- 
grams in action. (Don't let your local computer store disparage the TRS- 
80. Some will because they do not sell them. ) Attend a microcomputer 
club in your area. Ask about available software. 

If you haven't seen Leo Christopherson's Android Nim (with sound), 
you should. Nim isn't much of a game, but the animation is superb (1980 
price, $14.95, runs on 16K Level II TRS-80). If you wish a TRS-80 chess 
or checker playing program, look over the results from the most recent 
national microcomputer chess or checkers tournament. There are a dozen 
programs available for under $20 each, and the quality varies considerab- 
ly. Read the comments and the ads in whatever microcomputer periodicals 
you and/or your libaray take. 

You should probably write to: 

People's Software 

Computer Information Exchange 

Box 158 

San Luis Rey, CA 92066 

They put a couple of dozen programs on a tape and sell it for $10.95 
(see Lesson 7 ). They also sell more expensive programs, like People's 
Pascal ( $ 23.50). New programs are added frequently. Drop them a card 
asking for a current price list. 

HAVE FUN! GROW WITH YOUR NEW HOBBY. READ, EXPERIMENT, DISCUSS YOUR 
EXPERIENCES. HAVE FUN! 



187 




Your TRS-80 Level II BASIC Reference Manual contains details of the 
available Level II BASIC instructions. If you have an expansion inter- 
face, line printer, or disk you will find additional instructions defined 
in the accompanying reference manuals. Here are several additional Level 
II BASIC instructions you may find convenient. 



Additional Keyboard Conroands 

AUTO mm, tin 

Turns on automatic line numbering 
beginning with mm and in steps of 
nn. If ,nn is omitted, the default 
step size is 10. 

DELETE mm-nn 

Deletes program steps from line 
mm to line nn inclusive. Both 
mm and nn should be actual statement 
numbers in the program. 

LIST mm-nn 

Lists program from line mm to 
line nn. 



Examples 



AUTO 100 | ENTER I 
AUTO 100,5 jENTERl 

AUTO 300, 20 [ENTER! 



DELETE 410 [ENTER 
DELETE 80-230 



ENTER 



LIST 270-400 | ENTER | 
LIST 140- | ENTER] 
LIST -270 1 ENTER 



LIST I ENTER I 
RUN mm RUN IENTERI 

Executes program beginning at line mm. RUN 450 |ENTER| 



SYSTEM 

Enter monitor mode for loading Z-80 
language program from cassette tape. 
Frequently used with advanced com- 
mercial programming. 



SYSTEM 



ENTER 
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TROEF 



USR(0) 



RESTORE 



Additional Program Instructions Examples 

TRON TRON 

Turns on TRACE program in which 
variable values are shown on screen 
to help you debug program. TRACE 
program is always in the TRS-80, as 
part of your Level II BASIC ROM. 

TROEF 

Turns TRACE program off. The TRACE 
program is still in the computer . 

USR(n) 

Branches to a Z-80 machine language 
subroutine already entered by the 
user. You'll need to use POKE first. 

RESTORE 

Resets the DATA pointer to the first 
DATA statement to permit program to 
reuse the same data. 

GOSIB nn 

Branch to the subroutine beginning 
at line number nn. 

RETURN 

Each subroutine must contain at 
least one RETURN statement. This 
sends the program back to the line 
following the GOSUB that branched 
to the subroutine. 

ON a GOTO mm, nn, pp, qq, " ' 

If the value of INT(a), where a is a 
variable or expression, is one of the 
numbers 1,2,3,4, ' " ,k then go to the 
statement number in that position on 
the list of statement numbers mm, nn, 
pp, qq,'". 

ON a GOSUB mm, nn, pp, qq, '" 

Same as ON a GOTO except the RETURN 
pointer is set so program will return 
to statement following ON a GOSUB. . . . 
when RETURN is encountered. 



GOSUB 460 
GOSUB 37(30 

RETURN 



ON Z GOTO 200, 300, 400 

ON K+2 GOTO 700,700,400,300,500 



ON K GOSUB 3300, 2000, 400 
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Arithmetic Functions 



Function Operation (unless noted otherwise, 
-1.7E+38<=exp<=1.7E+38) 

ABS(exp) Returns absolute value. 

ATN(exp) Returns arctangent in radians. 

CEBL(exp) Returns double-precision represen- 
tative of exp. 

CINT(exp) Returns largest integer not greater 
than exp. Limits: 
-32768<=exp<+32768. 

COS (exp) Returns the cosine of exp; assumes 
exp is in radians. 

CSNG(exp) Returns single-precision represen- 
tation, with 5/4 rounding in least 
significant decimal when exp is 
double-precision . 

EXP (exp) Returns the natural exponential, 

e exp =EXP(exp). 

FlX(exp) Returns the integer equivalent to 
truncated exp (fractional part of 
exp is chopped off ) . 

INT(exp) Returns largest integer not greater 
than exp. 

LDG(exp) Returns natural logarithm (base e) 

of exp. Limits: exp must be positive. 

SGN(exp) Returns -1 for negative exp; for 
zero exp; +1 for positive e-*P. 

SIN(exp) Returns the sine of e.xp; assumes 
exp is in radians. 

SQR(exp) Returns square root of «P. Limits: 
exp must be non-negative. 

TAN(exp) Returns the tangent of exp; assumes 
exp is in radians. 



Examples 



ABS(L*.7) 
ABS(SIN(X)) 

ATN(2.7) 
ATN(A*3) 

CDBL(A) 
CDBL(A+l/3#) 

CTNT(A#+B) 



00S(2*A) 
00S(A/57. 29578) 

CSNG(M) 
CSNG( . 33*B#) 



EXP(34.5) 

EXP(A*B*C-1) 

FIX(A-B) 

INT(A+B*C) 

LOGQ2.33) 
LOG(MB+B) 

SGN(A*B+3) 
SGN(OOS(X)) 

SIN(A/B) 
SIN(90/57. 29578) 

SQR(A*A-B*B) 

TAN(X) 

TAN(X*. 01745329) 



exp may be any num&tic vaJvlablz, constant on computed e,xpfi&ii>i.on. 
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There are a number of other Level II BASIC instructions available for 
special use on your TR3-80. If your, programming is advanced enough to 
need these extra instructions see the TRS-80 Lewi II BASIC Reference 
Manual and the reference manuals accompanying any additional equipment 
you may have (Disk, Lineprinter) etc. 



Three examples are: 

POKE location, value. 
Loads value into memory location. The 
arguments must be decimal numeric vari- 
ables, constants or functions with 
< value < 225 . Used in advanced pro- 
gramming to change memory content or 
display screen and with USR( ) func- 
tion. See Chapter 8 of Level II 
BASIC Reference Manual. 



POKE 16396,23 

will disable the [BREAK! key. 
This is sometimes used to pre- 
v ent uns ophisticated users from 
|BHEAK| -ing into a program. 



PEEK [addn.Ui>] 

Returns the (decimal) value stored in 
the memory addneAA specified. Also, 
makes values of Z-80 machine language 
variables available to BASIC programs. 
See Chapter 8 of Level II BASIC Refer- 
ence Manual. 



10 K)R K = (3 TO 12288 
20 PRINT K;PEEK(K), 
30 NEXT K 

will display the location and 
contents of your Level II BASIC 
ROM. It won't mean much to you, 
but it will do it. 



RANDOM 

is frequently executed once near the 

beginning of a program to reseed 

the RND( ) instruction. Do not use 

RANDOM inside of a loop or where It will 

be used repeatedly in your program. 



1 REM 

2 RANDOM 



ptiogfuim name 
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EXAMPLE 17-1 

Let us examine a program designed to determine the factors of a given 
integer. Forms of this program have appeared in several magazines, books 
and even in tape form. The given program works. It produces the desired 
factors for any positive integer Z. However, it is easy to improve upon 
the program, as we shall see. 

First examine the original program to see why it works. 

153 REM FIRST WORKING ATTEMPT TO FACTOR A NUMBER 

100 INPUT "TYPE NUMBER TO BE FACTORED"; Z 

110 PRINT ' 'THE PRIME FACTORS OF" ; Z ; " ARE " ; 

120 N = Z 

130 F = 2 

140 IF N/F < > INT (N/F) THEN 200 

150 PRINT F; 

160 N = N/F 

170 IF N = 1 THEN STOP ELSE 140 

200 F = F + 1 

210 IF F < = Z THEN 140 

The heart of the program is instruction 140 

IF N/F < > INT(N/F) THEN 200 

which uses the integer function INT( ) to determine whether or not N/F is 
an integer (i.e., whether or not F is a factor of N). If F is not a fac- 
tor of N, the program jumps to instruction 200 which increases F by 1. 
If new F < = Z the program loops back to instruction 140 to determine 
whether or not the new F is a factor of N. If F is a factor of N, the 
value of F is printed, N is replaced by N/F and if the new N = N/F <> 1,. 
the test is repeated. When either of the conditions N = 1 or F > Z 
occurs, the original number Z is completely factored. 
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The program also uses an axiom many experienced programmers have 
found worthwhile 



Don't alter the value of j 

an INPUT variable inside your program i 

Note that the program inputs the value of Z but then sets N = Z and works 
with N. We could have ignored this motto here, but many experienced pro- 
grammers will tell you they stick to it in their own work. It avoids 
trouble . 

The program produces the prime factors of any positive integer of 
six or fewer digits you put in. Try it and see. Then examine the pro- 
gram to see exactly how it works. 

If you have any trouble following the program, make a chart of 
variables in the program and step the program through . If your INPUT 
value is Z = 12, your chart will contain 



N 



PRINTED OUT 



12 



12 



The prime factors of 12 are 
2 



3 3 
1 STOP 



After you understand how the program works, you may wish to create a flow- 
chart of the logic involved. Flowcharts are frequently used to express 
the logic involved in more complicated problems. This particular program 
is probably not involved enough to require a flowchart, but it is easy to 
the flowchart of a simple problem. 



Input 

Z 




set P=F+1 



Your flow chart should look something like this: 



INPUT Z 



NO 




PRINT MESSAGE 



SET N = Z 
SET F = 2 





PRINT F 



i 



SET N = N/F 



STOP 




STOP 



Note how easy it is to explain what the program is doing using a flow 
chart. 
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Actually, although the program in question has been published in 
several versions, it is an example of deplorably poor programming prac- 
tice . It works fairly well on small values, but note the difference be- 
tween Z = 1847 and Z = 1848 in the time required. Try it yourself before 
continuing. 

Furthermore, Z = 1950 takes :01 second to factor and 
Z = 1951 takes 1:01 seconds to factor. This seems a long time for a 
powerful computer. Of course, it does do a lot of arithmetic in that 
time. In fact, that is just the trouble — it does too much arithmetic. 
The program tests F = 2, 3, 4, 5, 6, 7, 8, 9,..., Z repeatedly. However, 
if we factor out all the 2's at the beginning, then there is no reason to 
also try 4, 6, 8, 10, etc. This should enable us to almost cut the time 
by half. 

This can be done by making the following changes: 

OLD PROGRAM FIRST REVISION 



10 REM FIRST WORKING ATTEMPT TO 
FACTOR A NUMBER 
100 INPUT "TYPE NUMBER TO BE 

FACTORED " ; Z 
110 PRINT "THE PRIME FACTORS 

OF "; Z; "ARE "; 
120 N = Z 

! 
130 F = 2 1 



140 IF N/F <> INT(N/F) THEN 200 

150 PRINT F; 

160 N = N/F 

170 IF N = 1 TIEN STOP ELSE 140 

200 F = F + 1 

210 IF F < = Z THEN 140 



10 REM FIRST WORKING ATTEMPT TO 

FACTOR A NUMBER 
100 INPUT "TYPE NUMBER TO BE 

FACTORED " ; Z 
110 PRINT "THE PRIME FACTORS 

OF "; Z; "ARE "; 
120 N = Z 

125 IF N/2 <> INT(N/2) THEN 135 
130 PRINT " 2"; 
132 N = N/2 

134 GOTO 125 

135 F = 3 

140 IF N/F <> INT(N/F) THEN 200 

150 PRINT F; 

160 N = N/F 

170 IF N = 1 THEN STOP ELSE 140 

200 F = F + 2 

210 IF F < = N THEN 140 



In instruction 
210 IF F < = 



Z THEN 140 



there is really no reason to try F values that are larger than the current 
value of N (instead of the original Z) , so we replace instruction 210 with 

210 IF F < = N THEN 140 
This should cut our time even further. Make the above changes in 125, 
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130, 132, 134, 135, 2(30, and 21(9. Then, try the program again. 



N 


Old Program Time 


New Program Time 


12 


:01 


:005 


1847 




58 




30 


1848 




01 




01 


12345 




26 




14 


-6 




01 igno>i(M> &Lqyi 




005 


8.2 

_ 


Runs through 21(3 and stops. 





Even the above program would not satisfy most professional program- 
mers. The biggest complaints would probably be that the program mal- 
functions if negative values are used, and that the data was not tested 
to be sure the input value was an integer. 

The problem of fractional values is readily overcome by inserting: 

105 IF Z <> INT(Z) THEN PRINT "PLEASE USE INTEGER VALUES" : GOTO 100 

Negative values could also be handled as improper input, but since 
they can be factored, we prefer another solution. 



115 PRINT "(' 
120 N = ABS(Z) 



SGN(Z); ")" 



This will produce either -1 or 1 in parentheses as a first factor. 
We include the parentheses since mathematically, neither -1, nor 1, is a 
prime. By ending instruction 115 with a coram, instead of a semicolon, 
we also provided extra space between the unit and the prima factors. 

As long as we are improving our program, we might as well make full 
use of the TRS-80's arithmetic ability by requesting it to use DOUBLE 
PRECISION arithmetic, which permits us to work with numbers as large as 
16 digits, instead of 6. We can do this by adding: 

10 DEEDBL Z, N, F 

However, if we do this, we will be using the much slower double pre- 
cision arithmetic, even when our number to be factored has 6 or fewer 
digits. To avoid this, insert: 
10 DEFDBL Z 
106 IF Z > 999999 THEN DEFDBL N, F 

Many programmers would prefer to print a blank line or two and loop 
the program back to the beginning rather than stopping it once the number 
is factored. This is easily done by changing instruction 170 to 

170 IF N=l THEN 90 ELSE 140 

and adding: 
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90 PRINT : PRINT 
300 GOTO 90 

Our revised program now reads: 
10 DEFDBL Z 
90 PRINT : PRINT 
100 INPUT "TYPE NUMBER TO BE FACTORED "; Z 

105 IF Z <> INT(Z) THEN PRINT "PLEASE USE INTEGER VALUES" : GOTO 100 

106 IF Z > 999999 THEN DEFDBL N, F 

110 PRINT " THE PRIME FACTORS OF "; Z ; "ARE " ; 

115 PRINT "(" ; SGN(Z); ")", 

120 N = ABS(Z) 

125 IF N/2 <> INT(N/2) THEN 135 

130 PRINT "2"; 

132 N = N/2 

134 GOTO 125 

135 F = 3 

140 IF N/F <> INT(N/F) THEN 200 

150 PRINT F; 

160 N = N/F 

170 IF N = 1 THEN 90 ELSE 140 

200 F = F + 2 

210 IF F < = N THEN 140 

300 GOTO 90 

Although our new program takes more lines to write than the original 
program, actually it produces results in less than half the time, and 
works for many additional input values. 

There are still three important cases to be considered. What happens 
if Z = 0? Try it and see. If the output does not satisfy you, change the 
program further by adding: 

IF Z = THEN PRINT " homn. appftopHMXtt meAAagz." 

Mathematically oriented readers may prefer to make the program even 
faster by using only prime values for F instead of 2, 3, 5, 7, 9, 11, 
13, 15, ...Z. This will indeed save considerable time on factoring larger 
numbers, but requires that a list of prime numbers be stored or generated. 
We leave this as an exercise for those desiring additional speed. The 
critical statements are 

READ F 

DATA 2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 

DATA 53, 59, 61, 67, ..., etc. 

DATA 

where the DATA statements contain a list of al] primes 
that are < Z9999999999999999 or < 100000000 if 16-digit arithme- 

tic is being used. 
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The point of this exercise is not to illustrate how to write a fact- 
oring program, but rather to show you that it is very easy to improve most 
programs, including corrmerical programs written in books (even this one). 
Just because a program "works" does not mean it is a good, or even an 
acceptable, program. The critical questions are: 



Does it do the job for which it was designed? 
If not, it is useless. 



(Does it work?) 

If so, improve it 



2. Can I improve it noticeably without much effort? 
and test the new program. 

3. If it requires much effort to improve the program, will the results 
be worth the effort? (If the program will seldom be used again, and 
if it does not take an unreasonable amount of computer time as it 
is, it probably is not worth the effort to improve it unless you 
want to use it to brag a bit . ) 

4. You should always ask yourself if the method (algorithm) used by 
the original progranmer is the best one you can think of. 

Experienced programmers have a saying that contains much truth. 



Only after you have written, debugged, and tested 
a program, do you understand it well enough to 
program it. If it is a major program, after you 
get the program all up and running smoothly, scrap 
the entire program and THINK carefully about it. 
Then start over from scratch and write a better 
program. 
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MORE mlcroRESEARCH PROBLEMS 

We examine another example in detail before trying new micro- 
Research Problems. We consider the four-digit case first, then after 
that is investigated, ask you to expand it in micro-research Problem 18, 
as suggested in the STEPS FOR COMPUTER ASSISTED PROBLEM SOLVING. 



EXAMPLE 17-2 



Let ABCD be a 4-digit number such as 4721 



10(3 LET X = 
A = ABS 
B = ABS 
C = ABS 
D = ABS 
PRINT A 



A 

lA-Bl 

IB-CI 

IC-DI 

ID-XI 

; B : 



IF A+B+C+D <> 



C ; D 
THEN 10(3 ELSE STOP 



Your first problem is to write a BASIC 
program that will show that each 4-digit 
starting- value number will converge to 
0000 in 9 or fewer steps. 



Write your own program before 
continuing. 



EXAMPLE 

A8CP =4721 
X = 4 

A = U-7l = 3 
8 = I 7-2 I =5 
C = I2-JI = 7 

V = I1-4I = 3 

NEW ABCV =3513 
X = 3 

A = I 3-5 1 =2 
8 = |5-7l = 4 
C = I 7-31 = 2 

V = 13-31 = 

MEW ABCV = 2420 
X = 2 

A = 12-41 = 2 
8 = |4-2l = 2 
C = |2-0I = 2 
P = 10-21 = 2 

WEW A8CP = 2222 



X = 
A = 



2 

l2-2l 
8 = 12-21 
C = 12-21 
V = 12-21 

NEW A8CP 
STOP 
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There are several ways this could be done. One of the more obvious is: 

210 FOR M = 1 TO 9 

220 FOR H = TO 9 

225 PRINT "WORKING ON M, H = "; M; H 

230 FOR T = TO 9 

240 EOR U = TO 9 

250 A = M 

260 B = H 

270 C = T 

280 D = U 

290 PRINT "STARTING WITH A, B, C, D = " A; B; C; D 

300 N = 

310 X = A 

320 N = N+l 

330 A = ABS(A-B) 

340 B = ABS(B-C) 

350 C = ABS(C-D) 

360 D = ABS(D-X) 

370 PRINT A; B; C; D 

380 IF A + B + C + D > THEN 310 

390 PRINT M;H;T;U; "TAKES ";N; "STEPS TO CONVERGE TO 0000. 

400 NEXT U 

410 NEXT T 

420 NEXT H 
430 NEXT M 

500 PRINT 

510 PRINT "FINISHED WITH 4-DIGIT TESTS." 



This program runs through all of the four-digit starting-values, 
printing out new values as they are developed, and printing out the num- 
ber N of steps each starting-value requires to converge to 0000 before 
going to a new starting- value whenever ABCD = 0000. 

Put it on your computer and run it. It is interesting to watch, but 
it sure takes a long time to test 9000 cases ! 

Of course, you don't really need to watch, since, if a given starting 
value ever fails to produce 0000, the program will continue trying, and 
the change in pattern will be clear. 

However, if we are not going to watch the program, it can be speeded 

up a lot by eliminating statements 290 and 370. Try it and see. Be sure 

you also recognize how to tell if this revised program ever finds a start- 
ing value which does not converge to 0000. 

It is still a long program, and besides, it doesn't really do what we 
set out to do (to show that every 4-diglt starting- value converges to 
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(3(3(30 in nine or fewer steps ) . 

Hrarm. ..let's store the largest N-value in another variable called L. 
(Why not in B for biggest?) We can do that by inserting: 



205 L 


= 






385 IF L > 


= N THEN 400 




395 L 


= N 






515 PRINT 


"LARGEST N VALUE IS " ; L 




;'s see 


how that works. 




205 L 


= 






210 FOR M 


= 1 TO 9 




220 


FOR H = TO 9 




225 




PRINT "WORKING ON M, H = "; M; H 




230 




FOR T = TO 9 




240 




FOR U = TO 9 




250 




A = M 




260 




B = H 




270 




C = T 




280 




D = U 




300 




N = 




310 




X = A 




320 




N = N+l 




33(3 




A = ABS(A-B) 




340 




B = ABS(B-C) 




350 




C = ABS(C-D) 




360 




D = ABS(D-X) 




370 




PRINT A;B;C;D; 




380 




IFA + B + C+D>0 THEN 310 




385 




IF L > = N THEN 400 




390 




PRINT M;H;T;U; "TAKES ";N; "STEPS 


TO CONVERGE TO 0000 


395 




L = N 




400 




NEXT U 




410 


NEXT T 




420 


NEXT H 




430 NEXT M 






500 PRINT 






510 PRINT 


"FINISHED WITH 4-DIGIT TESTS." 




515 PRINT 


"LARGEST N VALUE IS " ; L 





When we ran the above program, we discovered L = 8. You can modify the 
program to determine all 4-digit starting- values that require 8 steps to 
converge to (3000. 
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microRESEAECH PRCBLBIS 
(continued from Lesson 5) 
18. a. Extend Example 17-2 to 5-digit starting-values A B C D E 

A = X 

A = ABS(A-B) 
B = ABS(B-C) 
C = ABS(C-D) 

D = ABS(D-E) 
E = ABS(E-X) 

etc. Let's print out each set (like we did in 29(3 and 37(3) to see 
what is going on at the early stages of our investigation. 

It may come as a shock to you that not all values converge to (3(300(3. 
Indeed, apparently quite a few converge to 000XX (where the digits XX 
are alike, but not necessarily 0(3), and then enter a long loop which 
eventually returns to 0(3(3XX. 

b. MDdify the program or write a new one to investigate what really 
does happen to 5-digit starting-values. 

c. Extend your investigations to include 6, 7, and 8-digit starting- 
values and 2 and 3-digit starting-values, as well as the 4 and 5-digit 
values already investigated. 

Would you like to conjecture that all starting- values converge to 
(3(3. . .XX, but that we can guarantee XX = (3(3 only if the number of 
digits in the starting-value is a power of 2? Why, or why not? 

19. Write a program that will shuffle 52 cards in the computer and deal 
out 4 bridge hands, and then bid one of the hands, with human input 
for bids on the other three hands. 

20. Write a program to create Haiku poetry. 

21. Write a program that will accept- seven subscripted variables V(0), 
V(l), . .. ,V(6) and will test to determine whether or not any of the 
variables contain equal values. If all seven variables are different, 
print "ALL VARIABLES ARE DISTINCT." Otherwise, print the subscripts 
and the corrmon value of those variables containing the same value. If 
there is more than one set of subscripted variables with the same val- 
ues, the program should also indicate the subscripts and conroon values 
of other sets. 
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V(0) = 4 

V(l) = -3 

V(2) = 1.765 

V(3) = 4 

V(4) = -2 

V(5) = -3 

V(6) = 4 

The output should be 

SUBSCRIPTS = Q 3 b VALUE = 4 
SUBSCRIPTS =15 VALUE = -3 



22. Write a program to accept one of the three symbols from the key- 
board - <p + . The program should then examine a string of 
DATA (from DATA statements or from tape) and if 

was depressed at the keyboard, display the number and sum of 
the negative DATA values. 

+ was depressed at the keyboard, display the number and sum of 
the positive DATA values. 

(/} was depressed at the keyboard, display the number of zeros 
in the DATA. 

23. A theorem from number theory states that every integer N is 
expressible in the form 

N = X 2 + Y 2 - Z 2 where X, Y, and Z are integers. 

a. Write a program that will accept values of N between -100 
and +100 and print out N (as the sum of two integer squares 
minus another integer square) before returning to accept an- 
other value N. 

b. Enclose your program in a KDR. . .NEXT loop to test all 
-100 < N < 100. 

c. Can you speed your program up so it could feasibly work for 
-5000 < N < 5000? 

24. Euclid's proof that there exist infinitely many prime integers uses 
the expression 

N fe = 1 + (2* 3*5*7*11*... *P fe ) 

where the product in the parentheses is the product of the first 
k positive primes. 

Write a computer program to determine the first 20 values of Nf,. 
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Extend your program to determine which of these N fo values are 
prime and what the factors of the non-prime N. are. (Note- not all 
N, are prime, but all of N, »s prine factors Ire larger than P, and 
less than (1 + An^ ). K k 

25. Knowing that our calendar repeats on a 400-year cycle , determine on 
which day of the week the 13th day of the month is most apt to occur. 
(Is it really Friday?) 

26. Write a program to make a table showing the values of 

N N 2 R 

(Where R is the remainder when N 2 is divided by 12.) 

for N = 1, 2, 3, ..., 20. Then jump to a conclusion (call it a 
conjecture, if anyone asks you) and then either prove or disprove 
your conjecture. 

27. Determine the sum of the first k terns in the series 

1 + 22 + 333 + 4444 + . . . 

For a solution, consult page 807 (E 1405), American Mathematical 
Monthly Vol 67 ( 1960). ~~ 

28. Determine all of the 4-digit integers which are perfect squares and 
m which all four of the digits are even . Your final program should 
produce the results in less than 3 seconds of TRS-80 Level II BASIC 
RUN time. If it takes much more than that, please do some additional 
analysis and try again. 



29. Devise a program that will draw a dart target on the TRS-80 screen 
(squares are much easier to draw than circles), with numbers shown in 
each area (including negative numbers outside the target if you wish). 
Then permit a player to toss 5 darts by typing coordinates X,Y of a 
point. Add a little "wobble" to the point chosen by using X = X + 
(RND(9) - 5): Y = Y + (RND(5) -3) or some such device before display- 
ing SET(X,Y) as a (first blinking, then permanent) pixel on the screen. 
Your program should also keep a running total of the number of points 
the player made. 

After the program is up and running — rewrite it so that the cen- 
ter of the target is not at the center of the screen. Also, permit 
the gamemaster to assign the values to each target area before the 
game starts. 
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30. The reverse of an integer (whole number) is the number obtained by 
writing its digits in reverse order— that is, the reverse of N=1089 
is R=9801 and the reverse of N=13 is R=31. 

a) Your project is to find values of N such that N does not equal 
its reverse, N^R, but the product N*R is a perfect square. Since 
1089*9801 = 10673289 = (3267) 2 such numbers clearly exist. How many 
can you find? 



31. The numbers 12 and 21 are reverses of one another, as are 144 and 
441, since they contain the same digits, but in reverse order. In- 
terestingly, 12 2 = 144 and 21 2 = 441. Find other pairs N and N' 
such that N and N' are reverses with N^ST, and such that N 2 and (N"*) 2 
are also reverses. 



32. You borrow an amount P dollars at I percent per annum interest rate 
22. *2£ unpaid balance . You agree to pay off M dollars per month. 
Write a program that will print out a table showing at the end of 
each month: 

Amount of interest Amount of principal Remaining Total Interest Total 
paid that month paid that month principal paid to date paid 

to 
date 

Note that if in the last month (principal + interest) < M you should 
not have to pay the full $M. 



33. Lesson 4 contained a program designed to help you learn where the 
various pixel blocks were located on the screen. Extend the idea 
by first having the player type a difficulty number N where 1 is 
hard and 9 is easy, perhaps using 

INPUT "PLEASE TYPE DIFFICULTY NUMBER BETWEEN 1 (HARD) AND 9 (EASY); N 

Then give the player 1+RND(N) chances to locate the lighted block 
with blinking pixel, before clearing the screen and choosing another 
randomly positioned lighted block. 

34. Write a program to accept a positive integer K and then type out K 

primes of the form IT + 1. 

Example: If K = 3 

the primes are 2, 17, 37 r> 

each of which is prime and of the form (1ST + 1). 
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35. Write a program containing 20 or fewer BASIC instructions without us- 
ing a PRINT" (PRINT ioltowtd by quota*) instruction to make a 
caricature of a face or person or animal. 

36. Design a program which will serve as a timer fo r a ser ies of 10-min- 
ute speeches. When the time keeper types RUN | ENTER | your program 
should display 10 MINUTES LEFT on the screen in normal size letters. 
The number of minutes should change every minute. When the speaker 
gets to 1 minute left the program should display some attention 
getting device on the screen and the switch to double size letters 
and display 

MINUTES 59 SECONDS 

58 SECONDS 

etc. until SECONDS is reached, whereupon the screen should go 
wild (possibly including an audio blast if you are equipped for 
audio output). 



37. Prove or disprove that, for N a positive integer, 

N 4 + 2N 3 + 2N 2 + 1 is 

never a perfect square. (Don't expect the conputer to do this for 
you.) 



38. Your local Utopia Society decides to replace their weekly Bingo 
session with a Numbers Betting Game to be available in gas stations 
and grocery stores. People can place bets on any three digit number 
from 000 to 999. The winning number is the three digits in the 
thousands places of the number of shares sold on the New York Stock 
Exchange that day. The payoff is 500 times the amount bet for bets 
up to $20. For bets above $20 the payoff is $10,000 plus 100 times 
the amount bet. 

Your first task is to write a program to simulate the betting system 
and come up with estimates of likely profits or losses. You should 
also discover (with or without using a computer )what amount of bet 
will produce the greatest payoff for the bettor. If all bettors wag- 
ered this amount (best possible for them, worst for the Utopians), 
how much would you expect the Utopia Society to make or lose on each 
approximately $10,000 that was bet? Assume that 10£ of each dollar 
bet goes to the person taking the bet, and 15£ of each dollar bet is 
other overhead. 

75 

39. Compute and print the number 2 exactly. 
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40. Find all positive integers X,Y,Z such that 

X 2 + Y 2 = Z 2 with Z < 1000. 

Compare the speed of your program with the speed of programs written 
by your friends. 



41. a) Two rods of equal length are divided into 250 and 243 equal 

parts respectively. Their ends are coincident. Find the divisions 
which are nearest together. 

b) Same problem but divide the two equal rods into M and N equal 
parts. Write a program to accept positive integer input M and N 
and display the two values which are nearest together. 



42. Consider the recursive relation defined by: 

Let B = The biggest number that can be made by rearranging the 
digits of %. 

S = The smallest number that can be made by rearranging 
the digits of N^. 

N k+i = B - S 

a) If Nq is a four-digit starting value, one of two things happen: 

i) If all the digits of N Q are identical, the %+i = for all 
K >0. 

ii) If Nq has at least two distinct digits, then the relation con- 
verges to Njj+i = 6174 which then repeats forever. Investigate 
this phenomenon. 

b) If Nq is a six-digit integer, there are 384 non-zero possible 
values of Ni, some of which lead to the repeater 631764, but 
some of which do not. Investigate other starting values N 
having 6 digits. 

c) Investigate the N k+1 = BIG - SMALL phenomenon for starting 
values of other sizes. 

43. It is well-known that the reciprocals of integers form repeating 
decimals of period p (we say, p = if the expansion terminates as 
on 1/2 = .500; p = 1 for 1/3 = .33; etc.) Our problem is to create 
a table which will give the smallest positive integer N(K) such 
that its reciprocal has a repeating decimal expansion of length K. 
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44. If N Q is a positive integer, it can be shown that the recursive 
relation Nk+1 = (The sum of the squares of the digits of %) will 
either converge to 1 or will reduce to a self -repeating cycle 37, 
58, 89, 145, 42, 20, 4, 16, 37, ... 

a) Do so. Can you prove that every positive starting value Nq 
will eventually either converge to 1,1,1, or to the cycle 
20, 4, 16, 37, ... 

b) The related problem for the sum of other powers of the digits 
also merits investigation. Do so. 



45. It is a common practice in mapping to approximate the area of a 

lake or island or other irregular shape by using an irregular poly- 
gon, whose area is easier to compute than is the area inside a 
curved boundary. 

Write a program into which the number N of vertices and the X and 
Y coordinates of the vertices (X i , Yj_) of the polygon in consecu- 
tive order may be input and the program will then compute the poly- 
gonal area. It will be necessary to either find or devise a suit- 
able formula. Remember this polygon is not a regular polygon since 
its sides may be of unequal length. 



46. Given two values A and B, determine values X, Y, and Z such that 

A = X Y = Z 
X Y Z B 

What will your program do if A and B have different signs? 



47. Liouville discovered an interesting procedure for producing 

sets of positive integers with the property that the sum of their 
cubes is equal to the square of their sum. One such set is 

l 3 + 2 3 + 3 3 + 4 3 = ( 1 + 2 + 3 + 4) 2 . A bit of induction 
will show that for all N, l 3 + 2 3 + 3 3 + . . .+ N 3 = (1+2+3+. . .+N) 2 . 
However, it is not known whether or not Liouville's method will 
produce all such sets. Write a program to produce such sets in a 
given range. Investigate the problem. 



48. Write a program that will compute how much an investment of P 
dollars will be worth Y years from now if it is invested at I 
percent per annum interest, compounded N times per year. 
A useful formula is: 

V = P*(l + I/(100*N)) (Where V is the value after Y years.) 



208 



49. Design a program to coach emergency first-aid treatment at the "Boy 
Scout" level. The program should ask questions answerable by YES or 
NO and prescribe action based on the response. 





Bind wounds to stop 
flow of blood. Bo 
not use a tourniquet 
unless life is 
threatened. 



Type number to indicate likely 
material ingested: 

1 Prescription medicine 

2 Other medicine 

3 Soaps, detergents, cleansers 

4 Insecticides, bugkillers 

5 Caustics: lye, Drano, bowl 
cleaner, Liquid Plumber 

6 Gasoline-like products 

7 Paints, stains, enamels 

8 Heavy oils or grease 

ON P GOTO . . 

&(b(b<h(b(b(b(b 
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50. Either find a ten-digit positive integer N with each digit different, 
and such that N is also a perfect 10th power of an integer, or show 
that no such N exists. 



51. Consider a large lattice of points (100 x 100 would be large in this 
case and a big sheet of graph paper will do nicely ) with equal spac- 
ing in the x and y directions. Our real problem is to place as 
many points as possible on the lattice subject to the restriction that 
no subset of three points shall form a right triangle. Before tack- 
ling the real problem, consider the much simpler problem of a program 
to find and print out 6 or 8 patterns of points on the lattice which 
have the property that no three points form a right triangle and that 
the set is maximum in the sense that if one more point were added to 
the given arrangement, a right triangle would be formed. Possibly 
placing points down the diagonal has this property. Then try to ans- 
wer (with proofs) the questions: 

a) What is the largest number of points which may be so placed? 

b) What is the smallest number of points in a maximum set? 

c) Restate the problem so that using every point of two adjacent 
sides of the square excepting the corner point is not a solution 
and solve the new problem. 

52. Write a program to sort a set of 25 names alphabetically. Ponder this 
one. Sorting represents one of the most time-consuming uses of modern 
computers. Consider sorting and entering the approximately 100,000 
grades received by 20,000 students each term at a major university. 

53. J. Maxfield has shown ( Math Magazine , Vol. 43, #2 March, 1970, pp. 64- 
67) that given a sequence of digits K = d^dg.. .d , there exists an 
integer N such that N! begins with the sequence of n digits K. Write 
a program to create a table such that the smallest such positive inte- 
ger N(K) is determined for each K < 100. You may also wish to print 
out the floating point value of N! if it will be available at no addi- 
tional cost. Eventually, we would like a formula for N(K) = smallest 
positive integer N such that N! begins with the sequence of digits 
K, but that may be too much to hope for. Your table might well re- 
semble the one below: 

K N(K) N! 

1 
2 
3 
4 
5 
6 
7 
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1 


1 


2 


2 


9 
8 
7 
3 


362880 
40320 
5040 
6 


6 


720 



54. Mathematicians have proved that there exist arbitrarily long strings of 
consecutive positive integers such that each of the consecutive inte- 
gers has as a factor, a perfect square greater than one (probably 
different squares for different integers). This may be restated as 
follows : 

Given a positive integer N, there exist strings of N consecutive 
positive integers each of which contains a factor which is a per- 
fect square greater than one. 

If N = 3 48, 49, 50 contain 4 2 7 2 5 2 as factors. 

98, 99, 100 contain 7 , 3 , 10 as factors. 

If N = 4 242, 243, 244, 245 contain ll 2 , 3 2 , 2 2 , 7 2 factors. 

If N = 7 217070, 217071, 217072, 217073, 217074, 217075, 217076 
contctin. as 9999999 

factors T 3 2 Z 113 11 5 4^ 

Your problem is to find the first (i.e., involving smallest integers) 
string of N consecutive integers each of which contains a square >1 
as a factor for N = 2, 3, ..., 10. 



55. This one is tough! Mathematicians have shown a similar theorem to 
that given in Problem 54 holds with "perfect square" replaced by 
"perfect cube" or even "perfect Kth power". Investigate this for 
K = 3, 4, 5, and N = 2, 3, ..., 10. (Or even N = 2, 3, 4, 5, 6, for 
starters . ) 



Examples : 




3rd Powers (K = 3) 


4th Powers (K = 4) 




N=2 


80 81 
8 27 


N=2 


80 81 
16 81 




N=3 


1375 1376 1377 
125 8 27 


N=3 


33614 33615 33616 
2401 81 16 



N 4 22624 22625 22626 22627 
8 125 27 1331 



56. Hnd a set of distinct positive integers, each of which is less than 
100, such that it satisfies both of the following conditions. 

a) No combination (or subset) of them added together will total 100. 

b) The set contains as many distinct, positive integers as possible. 

Hint: You may be able to solve this without using a computer. 
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57. The square of the number 36363636364 has the unusual property ( in 
base 10) that the second half of the square is an exact duplicate of 
the digits in the first half 

(36363636364) 2 = 13223140496,13223140496 

as shown by the central comma above. 

Such periodic squares also exist in bases other than 10. For exanple, 
in base 4, 

(21213 4 ) 2 = 11301, 11301^ = 378225 1Q = (615 10 ) 2 

Your problem is to write a program that will examine perfect squares, 
expressed in some base B > 1, (use base B = 10, if you wish) and 
find perfect squares whose expression in base B is periodic (period 
2 or more). See Mathematics Magazine , March 1975, p. 97. 

58. An integer (whole number) greater than 1 is said to be prime if its 
only positive factors are itself and one. There are many 4x4 
arrays of digits such that each row and each column is a 4-digit 
prime. 

Example: 6 18 9 Where 6189 6359 

3(323 1021 

5273 8273 

9137 9337 are each prime. 



a) Find some additional such arrays. Then, hunt for arrays whose 
main (upper left to lower right) diagonal also contains a prime. 

b) What happens if you try to find 5x5 arrays containing 5-digit 
primes in each row, each column and main diagonal? 



59. Write a program to plot a graph Y = f(X). 

Your program may request the user to put the function in a certain 
statement. It should ask the user for what range of X-values he 
wishes the graph plotted and then compute (or ask the user) for the 
largest and smallest Y-value that will be used. It should then scale 
the function suitably for display on the CRT screen. Your program 
should also display for the user (perhaps using PRIOT @ 960, " ") 
the X-range and the Y-range covered by the graph. 



60. Find the smallest positive integer M such that 

M 
N = 7*10 +1 is not prime . 
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6 


1 


8 


9 


3 





2 


3 


5 


2 


7 


3 


9 


1 


3 


7 



61. Find and print all the five-digit positive integers which contain 
exactly the same digits as their trebles. The leading digit must 
not be zero. 

Example: 1(8(335 * 3 = 30105 

Please also record the computer time used on your final run. Compare 
with that of other TRS-80 users you know. 

62. Many people from Archbishop John Tillotson (c. 1650) through Kurt 
Vonnegut (1950) and beyond have toyed with the idea that if enough 
monkeys were permitted to pound typewriters for long enough, all the 
great classics of literature would eventually be reproduced. We can 
easily improve the chances of something legible being produced by 
picking keys in the approximate order of their frequency in normal 
English rather than at random. Write a program that will print out 
the following symbols, with the given approximate frequency per 1000. 
To simplify the problem we restrict our selection of punctuation to 
"space", and have emitted V, K, Q, X, J, and Z, which have very low 
frequency in English. 



KEY space 

FREQUENCY/1000 223 

KEY D L 

FREQUENCY/1000 31 23 

You may be able to further improve the likelihood of obtaining at 
least occasional words by including digraphs (two-letter groups) as 
well as single letters. English digraph frequencies are approxi- 
mately 

DIGRAPH TH HE ER AN IN ON RE AT ED ST ND ES 
FREQUENCY/1000 38 31 18 17 17 16 14 14 13 12 12 12 

Additional frequency data for English, French, Spanish, German, and 
Italian are available in Sophisticated Ciphers , available from Mu 
Alpha Theta Math Club, Room 423, 601 Elm street, Norman, OK, 73019, 
or at your library. 

63. Find all n-digit positive integers in which the n-digit number is an 
exact n-th power of an integer. 

Examples: 81 = 9 2 125 = 5 3 
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E 


T 


A 





N 


I 


R 


S 


H 


100 


77 


62 


62 


54 


54 


54 


46 


38 


F 


C 


M 


U 


G 


Y 


P 


B 




23 


23 


23 


15 


15 


15 


15 


15 





64. Two positive integers are amicable (friendly) if the proper (includ- 
ing one, but not including the number itself) divisors of each add up 
to the other. 220 has divisors 1, 2, 4, 5, 10, 11, 20, 22 44 55 
110 whose sum is 284. 284 has divisors 1, 2, 4, 71, 142, whose sum 
is 220, thus 220 and 284 are said to be amicable. Some other ami- 
cable pairs are (17296, 18416) and (1184, 1210). Write a program 
that will find all amicable pairs between two given bounds S and B 
and which will also keep track of any number which has a divisor sum 
greater than B, so these can be used in a future run with 

(new S) = (old B) and a larger B. Your final program should also 
account for any "carry over" values from previous runs. 

65. Amicable pairs (problem 64) have been generalized to amicable chains 
(sociable chains) in which the sum of the proper divisors of each 
number in the chain is the next number and the last member of the 
chain has the first member as the sum of its divisors. The only 
chains generally known are the two four-link chains (found in 1965): 

(2115324, 3317740, 3649556, 2797612) and 
(1264460, 1547860, 1727636, 1305184), 

the five-link chain: 

(12496, 14288, 15472, 14536, 14264), 

and a stupendous 28-link chain which contains the number 14316. 
However, there are others. 

a) Write a program to investigate amicable chains containing 50 or 
fewer links. 

b) What happens to chains that do not loop back to the starting 
value? 

66. Write a program that will match up 50 men and 50 women as dance 
partners. Your first attempt can use numbers, if you wish, but the 
final result should be two lists; one with the men's names in alpha- 
betical order and showing the randomly matched partner's name the 
other with the womens* names in alphabetical order and showing the 
name of each woman's partner (hopefully, the same matching as above) 
Each person should be matched with one and only one partner and that 
partner should be of the opposite sex. 

67. a) Write a computer program to accept three values M, D, Y and 

determine whether or not they are acceptable values for Month 
Day, Year, in that order. 

b) Extend the above program to accept two sets of three numbers and 
if both are acceptable as Month, Day, Year values, determine the 
number of days between them, including both dates in your count 
Example: 2, 2(3, 1978 to 2, 22, 1978 is 3 days. 
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68. A computer is apt to obtain different values for 

F(N) = 1*2*3*... (N-1)*N and for G(N) = N*(N-1)*. . .3*2*1. 
Furthermore, the difference is apt to be non-trivial. For N = 30, 
the difference can be greater than a quintillion (and that's more 
than the number of cents in the national debt). Investigate this 
phenomenon, using a program of your own devising, or using: 

100 FOR N = 10 TO 50 



110 


F = 1 






120 


G = N 






130 


FOR K = 


2 TO N 




140 


F = 


F*K 




150 


G = 


G*(N-K+1) 


160 


NEXT K 






170 


PRINT N 


, F; G, 


ABS(F-G) 


180 : 


NEXT N 







69. Mathematicians have shown that given a sequence of digits 

S = djd^. . ,d n there exists an integer N such that 2N begins with 
the sequence S. (As a matter of fact, for 2 we may substitute any 
positive integer which is not a power of 10, i.e., not 10°=1, 10 1= 10, 
10 2 =100, etc.) 

Your problem is to produce a table giving S, N, 2^ for S = 1 to 100 
such that N(S) is the smallest positive integer such that 2^(S) 
begins with S. 



I think the first few values are: 


S Smallest N>0 


2 N 


1 4 


16 


2 1 


2 


3 5 


32 


4 2 


4 


5 9 


512 


6 6 


64 


7 46 


70368744177664 


8 3 


8 


9 53 


etc. 


10 10 




11 50 





70. Problem 11 (Lesson 5) asks you to generate and print out in increas- 
ing order of size, the positive integers of the form n = 2^ l -3 m 
where k> and m = . Generalize this to integers of the form 
N 1 • B m where A and B are read using an INPUT statement . 
Note that A and B need not be prime. Your program should work if 
A = 6 and B = 10. 
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71. Use an array containing the proper fractions in lowest terms to 
establish a" position number" for each entry. In the array each 
entry in row k shall have (k+1) as denominator and the numerators 
in a given row shall be in increasing order. 



1/2 








1/3 


2/3 






1/4 


3/4 






1/5 


2/5 


3/5 


4/5 


1/6 


5/6 






1/7 


2/7 


3/7 


4/7 


1/8 


3/8 


5/8 


7/8 


1/9 


etc. 






1/1(3 


etc. 







5/7 6/7 



Since only those proper fractions in lowest terms are included, the 
rows are not of easily predictable length. 

Establish a position number N(a) for each fraction a in the array 
by simply counting the entries, row after row, from left to right 
until a is reached. 

Thus N(l/2) = 1 
N(l/3) = 2 
N(l/4) = 4 
N(2/3) = 3 
N(3/4) = 5 

and so forth. In this fashion one establishes that 

N(l/13) = 46 

N(15/16) = 79 

N( 1/100) = 3004 

N( 3/500) = 75917 

N(7/1240) = 467048 (or do they?) 

The challenge is to determine formulae or an algorithm that will 
enable you to do either (or both) of the following 

1. Given a proper fraction a in lowest terms, determine N(a). 

2. Given an integer K, determine the corresponding proper 
fraction a such that K = N(a). Use a computer to help if 
you can. 

72. Program a game of your own choice on the computer. 
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73. The problem of placing eight queens on an 8x8 chess board so that no 
queen can attack any other queen (queens attack any piece they can 
reach by moving in a straight line horizontally, vertically, or on 
either diagonal) is an old one. You may have considered the problem 
before. You will find it discussed on p. 161-2 of W. W. Rouse Ball's 
interesting book, Mathematical Recreations & Essays or in Chapter 10 
of M. Kraitchik's admirable book, Mathematical Recreations , both of 
which should be available at your local library. 

You may write a program to solve the problem if you wish, but the 
problem proposed here is to examine the following program and see if 
you can figure out how it works and why it produces all 92 possible 
solutions to the eight queens program. 

2 CLS 

4 PRINT " EIGHT QUEENS PROBLEM (RUNNING TIME ABOUT 40 MINUTES)" 

6 PRINT 

8 PRINT " 15863724 MEANS" 

10 PRINT " THE QUEEN IN THE FIRST COLUMN IS ON ROW 1;" 

12 PRINT " THE QUEEN IN THE SECOND COLUMN IS ON ROW 5;" 

14 PRINT " THE QUEEN IN THE THIRD COLUMN IS ON ROW 8;ETC." 

16 PRINT 

2(3 DIM R(8) 

50 N = 

1(3(3 C=0 

20(5 OC+1 

300 R(C)=0 

400 IF R(C) < 8 THEN 600 

500 C=C -1 

510 IF C = THEN PRINT'END OF SEARCH": STOP 

520 GOTO 400 

600 R(C) = R(C) + 1 

605 IF C < 2 THEN 660 

610 FOR CI = 1 TO C -1 

620 IF R(C)=R(C1) OR C+R(C)=C1+R(C1) OR R(C)-C=R(C1)-C1 THEN 400 

650 NEXT CI 

660 IF C < 8 THEN 200 

690 N=N+1 : PRINT' 'SOLUTIONS ' ; N ; "=" , 

700 FOR Cl=l TO 8 

710 PRINT R(C1);" "; 

720 NEXT CI 

730 PRINT 

740 GOTO 500 

74. If you are seriously interested in more advanced computing, investi- 
gate one of the following languages for your TRS-80. 

"C" or "tinyC" 

"PASCAL" 

"Z-80" chip language (enter from BASIC II through USR( ) function) 

PILOT (a language designed for Computer Assisted Instruction) 

75. Study a program written by someone else, and then improve it. 
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A FINAL WORD f rem your authors 

Good Progranming Practices 

There is no such thing as the correct progranming style. Entire 
books have been written on the subject, but even the most skillful prac- 
titioners of the progranming art disagree on what is best. However, there 
are several conmon sense principles that merit consideration. Even these 
are not immutable rules, but it is prudent to follow the suggestions un- 
less you have a good reason for not doing so on a given program . Here 
goes: 

1. Your program should, in general, read from top to bottom in a logical 
fashion, except for subroutines which usually are listed after the 
completed program. Block the various fragments into different 100 's 
in statement numbers. Don't feel compelled to use every tenth state- 
ment number. 

2. Use occasional REM statements to explain what is happening. If you 
must use a GOTO statement in the heart of your program, include a REM 
statement explaining why. 

Your programs will have a neater appearance, and be easier to debug 
if you place five blank spaces between REM and the start of your 
remark. Try it, you'll like it. 

3. Whenever you use a FOR-NEXT loop, indent the instructions between 
FOR and NEXT three spaces. If you use nested FOR-NEXT loops, stair- 
step them. It makes programs much easier to understand. 

4. Use the faster forms whenever feasible. 

(See Lesson 11. ) 

5. Get to know your computer. Become thoroughly familiar with the quirks 
and excentricities of your computer and of the BASIC (or other) lan- 
guage you are using. 

Above all: 

Don't let these or any other rules spoil your fun — but do remember 
that well-written, easy-to-follow programs are no harder to think or 
write than sloppy kluges and are much more profitable in use and main- 
tenance. Think of a computer program as a living, growing, ever-changing 
thing, not as a finished, static object. 



HAVE_FUN 




A^Wv. A^cUu. 
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APPENDIX 



Copyright © 1981 Tandy Corporation, 
Fort Worth, Texas 76102, U.S.A. 




Assignment Statements 



CLEAR 

CLEAR N 

DEG 

DIM 

DMS 

ERASE 

LET 

MID$ 

SWAP 





y 


J 


J 


J 


y 




/ 




/ 


J 


J 
y 


J 


y 


* 


j 


./ 


y 


J 


/ 


/ 


* 


j 






J 


J 
J 




j 







CLEARS all data variables. 

Reserves N bytes string memory, reset variables. 

Converts to decimal notation. 

Dimension one or more arrays. * 1 dimension only. 

Converts to sexagesimal notation. 

Deletes an array. 

Optional. 'DO NOT use with Color Computer. 

Replace old portion of string with new portion. 

Exchanges the values of two variables. 



Other Commands, Functions and Operations 



Secondary action clause in IF-THEN statement. 
Tests conditional expression in IF-THEN-ELSE 
Primary action to be taken in IF-THEN statement 

Connects cassette audio to television speaker. 

Direct program execution under the DEBUG mode. 

Merges ASCII disk program with resident program. 

Turns cassette motor on or off 

Puts a value into a RAM memory location 

Reseeds random number generator 

REMark; instructs computer to ignore rest of line. 

Positions cassette tape at end of next file. 

Gets current date as 18 character string. 

Returns the line number in which an error occurred 

Returns a value related to most recent error. 

Returns amount of unused string space. 

Finds amount of free memory space. 

Gets a value from specified port. 

Finds the amount of free memory. 

Gets value in specified memory location. 

Returns column position of cursor. 

Gets row number where cursor is positioned. 

Returns time (24 hour format) as a string. 

Calls a machine language subroutine. 

Calls one of ten machine language routines. 

Gets address where variable contents are stored. 

End-of-file detector. 

Determines current record number of disk file 
Determines highest numbered record in disk file. 
Returns address of data buffer b. 

* USE C) IN LI BASIC 
JOIN STRINGS 

OIF 1ST 1 AND 2ND 
RAISE TO POWER 

OPPOSITE OF XOR 

MODULUS CALCULATIONS 

NEGATE 

' USE ( * ) IN LI BASIC 

EXCLUSIVE OR 



ELSE 




J 


y 


y 


y 


y 


j 


IF 


/ 


/ 


/ 


j 


y 


y 


y 


THEN 


/ 


/ 


/ 


j 


y 


/ 


/ 

V 


AUDIO 














j 


DEBUG 
















MERGE 






j 


j 




j 




MOTOR 














J , 


POKE 




y 


j 




/ 


j 


i 

j 


RANDOM 




/ 


j 


j 


y 


y 




REM 


/ 


/ 


j 


! 

4 


y 


y 


/ 


SKIPF 














y 


DATES 








/ 








ERL 




j 


/ 


/ 


/ 






ERR 




i 


/ 


y 


/ 


s / 




FRE(STR) 




4 


/ 


/ 


/ 


/ 




FRE(X) 




/ 


y 


j 


/ 


/ 




INP 




y 


/ 




/ 


j 




MEM 


/ 


/ 


/ 


j 


/ 


j 


y 


PEEK 




y 


y 




/ 


j 


y 


POS 




j 


/ 


/. 


/ 


/ 




ROW 








y 








TIMES 






y 


j 


/ 


y 




USR 




j 


y 


j 


/ 


/ 


y 


USRn 






y 


j 




j, 




VARPTR 




/ 


y 


j 


/ 


/ 




EOF 






/ 


j 




/ 


y 


LOC 








/ 








LOF 






y 


/ 




y 




VARPTR(#b) 








J 








AND 


. 


/ 


/ 


/ 


/ 


/ 


y 


CONCATE- 




/ 


j 


j 


/ 


y 


j 


NATION 
















EQV 








j 








EXPONEN- 




/ 


j 


j 


/ 


y 




TIATION 
















IMP 








J 








MOD 








j 








NOT 




/ 


j 


y 


/ 


j 


j 


OR 


* 


/ 


/ 


/ 


/ 


j 


j 


XOR 








/ 









Definition Commands 



DEFFN 

DEFDBL 

DEFINT 

DEFSNG 

DEFSTR 

DEFUSR 

DEGREE 

GRAD 

RADIAN 







J 


j 




J 








J 


J 


,i 


j 


i 








/ 


J 


j 


i 


j 








y 


y 


j 


.'/ 


j 








y 


i 


j 
j 


J 


j 

y 




i 



Defines a user-created function. 

Define variables as double precision type. 

Defines variables as integer type. 

Defines variables as single precision type. 

Defines variables as string type. 

Defines entry point for mach. lang. subroutines. 

Set angle mode to degree. 

Set angle mode to gradians. 

Set angle mode to radians. 



Math Functions 



ABS 

ACS 

ATN 

COS 

EXP 

FIX 

HEX$ 

INT 

LN 

LOG 

OCT$ 

RND 

RND(0) 

SGN 

SIN 

SQR 

TAN 

VAL 



/ 


y 


y 


■j 


y 


y 


y 


y 
y 




j 


y 


/ 


y 


y 




,/ 




■j 


y 


y 


y 


y 




y 




y 


y 


y 


y 


y 




,/ 




,/ 


y 


y 


y 


y 








y 


,/ 


y 


y 


/ 






y 


y 


y 


y 


y 


y 


y 


y 

y 




/ 


y 


y 
y 


y 


y 




* 


y 


y 


y 


y 


y 


y 


,/ 




/ 


y 


/ 


,/ 


y 


,/ 


y 






y 


y 


y 


y 


y 


y 


y 




y 


y 


y 


./ 


,/ 


y 


y 




J 


j 


y 


y 


y 




* 




y 


y 


y 


y 


y 




,/ 




y 


j 


y 


y 


y 


y 





Computes absolute value of X. 

Computes Arc cosine. 

Computes arctangent; value returned in radians. 

Computes cosine; angle must be in radians. 

Computes the natural antilog. 

Truncates all digits to right of decimal point. 

Computes hexadecimal value and returns in string. 

Largest integer not greater than X. 

Natural logarithm in Pocket Computer. 

Natural Logarithm •Common Logarithm in PC. 

Computes octal value and returns it as a string. 

RND(N) — Pseudorandom number between 1 and N. 

Generates a pseudorandom number between and 1 . 

Returns sign component of a number. 

Computes sine; angle must be in radians. 

Computes single-precision square root. 'Keyboard 

Computes tangent; angle must be in radians. 

Evaluates a string as a number. 



String Commands and Functions 



ASC 

CDBL 

CHR$ 

CINT 

CSNG 

CVD 

CVI 

CVS 

INKEYS 

INSTR 

LEFTS 

LEN 

MID$ 

MKD$ 

MKI$ 

MKS$ 

RIGHTS 

SPACES 

STRS 

STRINGS 





y 


y 


y 


,/ 


y 


y 






y 


y 


,/ 


y 


y 








y 


y 


y 


y 


y 


./ 






y 


y 


y 


y 


y 








y 


y 
y 


y 


y 


y 
y 








y 


y 
y 


* 


y 


y 
y 


y 






y 


y 


,/ 


y 


y 


y 






y 


y 


y 


y 


y 


y 






y 


y 
y 


y 


/ 


y 


y 






y 


y 


y 


y 


y 


y 






y 


y 


,/ 


y 


y 






y 


y 


y 


y 


y 







Returns ASCII code of first character in string. 

Converts to double precision. 

Returns character for ASCII or other code. 

Returns largest integer not greater than n. 

Converts to single precision. 

Converts to double-precision after GET. 

Converts to integer after GET. 

Converts to single-precision after GET. 

Gets keyboard character if available. 

Returns starting position of substring. 

Returns left portion of string. 

Returns the number of characters in a string. 

Returns a substring of a string. 

Makes double-precision number a string. 

Makes Integer a string. 

Makes single-precision number a string 

Returns right portion of string. 

Returns a string of n spaces 

Converts a numeric expression to a string 

Returns a string of n identical characters 
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Input/Output Commands 



AREAD 
AT 

BEEP 
CLOAD 
CLOAD? 
CLOADM 
CLOSE 
CSAVE 
DATA 
FIELD 
GETb.r 
INPUT 
INPUT #-b 
INPUT #b 
INPUT- 
PROMPT" 
INPUT# 
INPUT$(N) 
INPUT$(N,b) 
LINE INPUT 
LINE INPUT #b 
LLIST 
LPRINT 
LPRINTTAB 
LPRINT USING 
LSET 
OPEN 
OUT 
PAUSE 
PRINT 
PRINT #-b 
PRINT (a 
PRINT AT 
PRINT TAB 
PRINT USING 
PRINT* 
PRINT* USING 
PRINT#b 
PUT 
READ 
RESTORE 
RSET 
SOUND 
SPC 
TAB 
USING 



/ 










J 


i 


y 




y 




y 


y 

y 


,/ 


/ 


1 


./ 


y 




y 


y 


y 


y 


y 
y 


y 


y 


,/. 


y 


y 


y 




y 


'j 


,/ 


y 


y 


y 


j 


y 


y 


y 




J 
j 


y 




* 


,/ 


J 


y 


y 


* 


,/ 


j 


y 


y 




y 


,/, 


y 


,/ 






y 


y 


,/ 






y 


y 








y 


,/ 






y 


y 




y 


y 


./. 


./ 


/ 


j 




j 


y 




j 


j j 


j 


y 


y 


y 


i 


./. 


y 


,/ 




y 


y 


y 


y 


j 






* 




j 


,/ 


y 


y 


,/ 


J 


y 


y 
y 


J J 


y 


I 


/ 


y 


J , 


,/ 


J 


J 


y 


\j 


y 



y 


y 


,/ 






,/ 


y 


y 


y 


y 


y 


y 


y 




,/ 




y 


y 


y 


y 


y 




y 


y 


y 




y 




y 


/ 


y 




y 




y 




y 




y 


y 


y 




,/ 


/ 


y 


* 


y 


y 


y 




y 





Contents of display read into variable. 

Print beginning at specified screen location. 

Sound buzzer n times. 

Loads BASIC program file from cassette. 

Compares program on tape with resident program. 

Loads a machine language program from cassette. 

CLOSE all open file-buffers or specified buffer b. 

Stores resident program on tape. 

Stores data to be accessed by a READ statement. 

Organizes a random file buffer into fields. 

Gets specified record from random disk file. 

INPUTS data from the keyboard. 

Inputs data from specified cassette unit. 

Inputs data from disk file (sequential access). 

PRINTS the "PROMPT" and INPUTs data from 

keyboard. 
Get data from tape and place in memory. 
Inputs n characters from the keyboard. 
Inputs n characters from sequential disk file. 
Line inputs from keyboard; <ENTER> ends input. 
Line inputs from disk into buffer. 
List program to line printer. "Mill Level I only. 
Prints items to line printer. *Yes in Mill Lev I. 
Moves printer carriage to specified position. 
Prints formatted data to line printer. 
Left-justifies data into a random access field. 
Opens file; assigns mode and buffer. 
Sends value to specified port. 
Hold display 0.85 seconds and continue. 
PRINTS an item or list at current cursor position. 
Writes data to cassette. '# - 2 Outputs to printer. 
Begin printing at specified screen position. 
PRINT AT specified screen location in Level I. 
Moves cursor right to specified TAB position. 
Formats strings and numbers for display. 
Contents of data memory is recorded on tape. 
Formatted sequential write to disk. 
Writes data to sequential file-buffer. 
Moves data from file-buffer to random disk-file. 
READs a value from a DATA statement. 
Resets pointer to first item of first data line. 
Right-justifies data into random access field. 
Sounds the frequency and duration specified. 
Prints a line of n blanks. 
Moves cursor to specified TAB position. 
Defines format for PRINT and LPRINT. 



Graphic Commands 



CLS 

CLS(C) 

JOYSTK 

POINT 

RESET 

SET 



y 


/ 


y 


J 


j 


/ 


j 


















/ 


y 


./ 




./ 


y 


* 




y 


,/ 


y 






y 


j 




y 


y 


y 




y 


y 


* 





Clears the display. 

Clears display and sets background color. 

Returns value related to joystick positions. 

Test graphic block "Return color if SET. 

Turn off specified graphics block. 

Turn on graphic block. "SETfx.y.zi - - COLOR. 
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System Commands 



AUTO 

CHAIN 

CMD"A" 

CMD"C" 

CMD"D" 

CMD"D:d" 

CMD"E" 

CMD'T' 

CMD'J" 

CMD"L" 

CMD"0" 

CMD"P" 

CMD"R" 

CMD"S" 

CMD'T" 

CMD'X" 

CMD"Z" 

CONT 

DELETE 

EDIT 

KILL 

LIST 

LIST#### 

LOAD 

NAME 

NEW 

RENUM 

RUN 

RUN 

"FILESPEC 
RUN#### 
SAVE 
SYSTEM 
TROFF 
TRON 





J 


J 

J 

J 

J 
J 
J 


j 


J 


J 

J 
J 

/ 

j 
J 
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y 


y 




I 
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J 
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J 
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J 
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J 
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J 


J 


J 
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y 


j 
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Numbers lines automatically. 

Load and execute specified program. 

Return to TRSDOS, printing message. 

Compress program by removing spaces and REMs. 

Loads and executes DEBUG. 

Display dink directory in BASIC. 

Display most recent disk error. 

Returns to TRSDOS, execute specified command. 

Performs Julian calendar calculations. 

Load specified disk file from BASIC. 

Sort specified number of strings in an array. 

Returns printer status as a string. 

MOD I: Start clock MOD HI: Display clock. 

Returns control to TRSDOS 

MOD I: Stops clock/Mod III: Turn off clock display. 

BASIC cross-reference facility. 

Toggle "DUAL" routing. 

Continues execution of program after BREAK/STOP. 

Erases program lines from memory. 

Puts computer into edit mode for specified line. 

Deletes a disk file. 

LIST program lines to the Video Display. 

LIST from program line #### 

Loads program file from disk. 

Renumbers resident program. "BASICR only. 

Erase program from memory: initialize variables. 

Renumbers resident BASIC program. 

Execute resident program. 

Loads and executes specified disk program. 

RUN from line specified by ####. 
Saves BASIC program on disk. 
Puts computer in monitor mode. 
Turns off the program trace function. 
Turns on the program trace function. 



Sequencing Commands and Functions 



END 

ERROR(N) 

EXEC 

FOR-NEXT 

GOSUB 

GOTO 

NEXT 

ON 

ON ERROR 

GOTO 
ON ERROR 

GOTO0 
RESUME 
RETURN 
STEP 
STOP 
SYSTEM 
TO 
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ENDs program execution. 

Simulates the specified error. 

Transfers control to machine language program. 

Program loop. 

Transfers program control to specified subroutine. 

Transfers program control to the specified line. 

Ends FOR-NEXT loop. 

Multi-way branch used with GOTO and GOSUB. 

Sets up an error-handling routine 

Disables an error handling-routine. 

Ends an error-handling routine. 

Returns from subroutine to statement after GOSUB 

Increments or decrements FOR-NEXT loop index. 

Stops execution of a program. 

Executes TRSDOS command, returns to BASIC. 

Used to specify index range in FOR-NEXT statement. 
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These BASIC instructions are typical. The BASIC you use may differ from 
this set. If so, mark the necessary changes directly on this reference 
sheet. 



Instructions 



AUTO start, Increment 

AUTO AUTO 150, 20 



Numbers lines automatically. 
AUTO ,5 



CLEARn Reserves n bytes of string storage space; 

initializes all variables. 
CLEAR CLEAR 75 CLEAR 

CLOAD Loads BASIC program file from cassette. Only 

the first character of the file name is used. 
CLOAD CLOAD "MIXIT" 

CLOAD? Compares program on tape byte-for-byte 

with resident program. 
CLOAD? CLOAD? "MIXIT" 



Clears the display. 



CLS 

CLS 

CONT Continues execution of program after BREAK 

or STOP. 
CONT 

CSAVE Stores resident program on cassette tape. A file 

name is required. Only the first character of the file name is 
used. 
CSAVE "MIXIT" 

DATA Stores data to be accessed by a READ state- 

ment. 
DATA "LINCOLN, A.", 1861, ILLINOIS 

DEFDBL Defines variables as double-precision. 

DEFDBLV, X-Z 

DEFINT Defines variables as integer type. 

DEFINT A, l-N 

DEFSNG Defines variables as single-precision. 

DEFSNG I, W-Z 

DEFSTR Defines variables as string type. 

DEFSTR C, L-Z 

DELETE Erases program lines from memory. 

DELETE 1205 DELETE - 80 DELETE. 

DIM Dimensions one or more arrays. 

DIM R(75), W(40) DIM AR$(8 25) 

DIML%(3, 18,5) 

EDIT Puts computer into edit mode for specified line. 

See Edit Commands. 

EDIT 100 EDIT. 

END Ends program execution. 

END 



ERRORfn,) 

ERR0R(1) 



Simulates the specified, error n = 1 - 23. 
Opens program loop. 



FOR . . . TO . . . STEP/NEXT 

FOR I = 1 TO 8 (. . .) NEXT I 

FOR C! = TO 5 STEP .2 (. . .) NEXT C! 

GOSUB Transfers program control to the specified 

subroutine. 
GOSUB 750 

GOTO Transfers program control to the specified line. 

GOTO 180 

IF . . . THEN . . . ELSE Tests conditional expression. 

IF P = Q THEN 200 
IF N% < THEN 150 ELSE N% = N% - 1 

INPUT Inputs data from keyboard. 

INPUT X* INPUT L, M, N INPUT "NEXT";N 



INPUT #- 1 

INPUT* - 1, A 



Inputs data from cassette. 



LET Assigns value to variable (optional). 

LET X = 7.05 LET R2= Rl LET C$ = "RED" 

LIST Lists program lines to the video display. 

LIST LIST 50-85 

LLIST Lists program lines to the video display. 

LLIST LLIST 50- 

LPRINT Prints an item or list of items on the printer. 

LPRINT CAPS; "IS THE CAPITAL OF"; STS 



Moves printer carriage to specified posi- 



LPRINTTAB 

tion 

LPRINT TAB(25) "NAME" 

LPRINT USING Prints formatted numbers and strings 

on the printer. See PRINT USING for list of field specifiers. 
LPRINT USING "* * * *,"; 1234 

NEW Erases program from memory; initializes all 

variables. 
NEW 

ON ERROR GOTO 

ON ERROR GOTO 2100 

ON ERROR GOTO 

routine. 

ON ERROR GOTO 



Sets up an error-handling routine. 
Disables an error-handling 
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Multi-way branch to specified subrou- 



ON . . . GOSUB 

tines. 

ON Y GOSUB 50, 100, 150,200 

ON . . . GOTO Multi-way branch to specified lines. 

ON X GOTO 190, 200, 210 



Sends value to specified port, p and v = 



OUTp, v 

- 255. 
OUT 255, 

POKE n, o, Puts value v (0 - 255) into location n (1 5360 

to end of memory). See POKE Addresses. 

POKE 15872,255 

PRINT Prints an item or list of items on the display at 

current cursor position. 
PRINT X! + Yl PRINT "U.S.A." 



PRINT @n Prints beginning at n, n = 

PRINT @ 477, "CENTER" 



1023. 



PRINT *- 1 

PRINT*- 1,A 



Writes data to cassette. 
Moves cursor right to specified tab posi- 



PRINTTAB 

tion. 

PRINT TAB(20) "NAME" 

PRINT USING Formats strings and numbers: 

* Formats numbers. 

PRINT USING "* * * » *"; 66.2 
Decimal point. 

PRINT USING "**.*"; 58.76 
Displays comma to left of every third digit. 

PRINT USING "****,"; 1234 

Fills leading spaces with asterisks. 

PRINT USING "******"; 44,0 
$$ Floating dollar sign. 

PRINT USING "$$* *.* *"; 1 18.6735 
" '$ Floating dollar sign; fills leading spaces with asterisks. 

PRINT USING "**$*.**"; 8.333 
( Exponential format. Press E ; to generate this character. 

PRINT USING "* * *.*(((("; 8527100 
+ In first position, causes sign to be printed; in last position 

causes sign to be printed after the number. 

PRINT USING "+***"; -216 

Minus sign after negative numbers, space after positive. 

PRINT USING " # * * *.*-"; -8124.420 
I Returns first string character. 

PRINT USING "I"; "YELLOW" 



%spaces% 
plus 2. 
PRINT USING "% %", 



RANDOM 

RANDOM 

READ 

READT 



String field; length of field Is number of spaces 
BLUE" 
Reseeds random number generator. 



Reads value(s) from a DATA statement. 
READ S$ READ NMS, AGE 



REM Remark; instructs computer to ignore rest of line. Is 

an abbreviation for :REM. 
REM PLACE COMMENTS HERE 'HERE TOO 

RESET (x, ]/) Turns off graphics block at specified 

location, x (horizontal) = - 127; y (vertical) = 0-47. 
RESET (21, 40) RESET (LI, L2) 



Resets data pointer to first item in first data 



RESTORE 

line. 
RESTORE 

RESUME Ends an error-handling routine by specifying 

where normal execution is to resume. 
RESUME RESUME 40 RESUME NEXT 

RETURN Returns from subroutine to next statement 

after GOSUB. 
RETURN 

RUN Executes resident program or portion of it. 

RUN RUN 150 

SET (x, y) Turns on graphics block at specified loca- 

tion, x (horizontal) = - 127; y (vertical) = 0-47. 
SET (10, 0) SET(L1,L2) 

STOP 

STOP 



Stops execution of a program. 



SYSTEM Puts computer in monitor mode, allows 

loading of object files. In response to *?, type filename or 
/address. 
SYSTEM 



TROFF 

TR0FF 

TRON 

TR0N 



Turns off the trace. 
Turns on the trace. 
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Error Messages 



Control Keys 



Abbreviation Explanation 



NF 


NEXT without FOR 


SN 


Syntax error 


RG 


RETURN without GOSUB 


OD 


Out of data 


FC 


Illegal function call 


OV 


Overflow 


OM 


Out of memory 


UL 


Undefined line 


BS 


Subscript out of range 


DD 


Redimensioned array 


/o 


Division by zero 


ID 


Illegal direct 


TM 


Type mismatch 


OS 


Out of string space 


LS 


String too long 


ST 


String formula too complex 


CN 


Can't continue 


NR 


No RESUME 


RW 


RESUME without error 


UE 


Undefined error 


MO 


Missing operand 


FD 


Bad file data 


L3 


Disk BASIC feature 



H 

[SHiFTJFl 




| BREAK| 




| CLEAR] 




|ENTER| 




]SPACEBAR| 


13 
|SHIFT|Fn 


m 


|SHIFT| |B 




ISHIFTlmP 




|SHIFT| [Fl 



Cancels last character 

typed; moves cursor back one space. 

Erases current line. 

Interrupts anything in progress and 
returns to command level. 

Clears the screen. 

Signifies end of current line. 

Enters a space (blank) character and 
moves cursor one space forward. 

Advances cursor to next tab position. 

Puts display in 32-character mode. 

Line feed and carriage return. 

"Control" key— hold down these 

two and press any key A-Z for control A- 

control Z. 

Copies the display contents to the 
printer. 

Causes currently executing program to 
pause (press any key to continue). 



Edit Commands 



Special Characters 



(A) Cancels changes and starts again. 

n |C] Changes n characters 

n [D] Deletes n characters. 

[E~l Ends editing and saves all changes. 

|Til Hacks line and inserts at end. 

|T] Inserts characters. 

n[K] c Kills all characters up to nth occurrence of c. 

(TJ Lists the line. 

P5| Quits edit mode and cancels all changes. 

n H] c Searches for nth occurrence of c. 

X Extends line (inserts at end). 

|SHIFT| H Causes escape from command. 

|ENTER| Records all changes and exits edit mode. 

" ISPACEBAR1 Moves cursor n spaces to the right. 

n o Moves cursor n spaces to the left. 



Abbreviation for :REM 

Makes variable integer-precision. 

Makes variable single-precision. 

Makes variable double-precision. 

Makes variable string type. 

Separates statements on the same line. 

Same as PRINT (but L? can't be substituted for LPRINT). 

PRINT punctuation: spaces over 

to the next 16-column PRINT zone. 

PRINT punctuation: separates items in a 

PRINT list but does not add spaces when they are outpu 
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Functions 



Argument ranges are indicated below by special letters: 
x: (HX 10E 38, - 1 X 10E - 38), 

(1 X 10E - 38, 1 X 10E38) 
c: (0,255) 

n: (-32768, 32767) 

str: string argument 

var: variable name 

AMS(x) Computes absolute value. 

Y = ABS(X) 

ASC(str) ReturnsASCII code of first character of string, 

A = ASC(T$) 

ATNfx) Computes arctangent; value returned in 

radians. 

Y = ATN(X/3) 

CDBLfx) Converts to double-precision. 

X* = CDBL(N*3) 

CHR$fc) Returns character for ASCII, control, or 

graphics code. 
P$ = CHR$(T) 

CINT(n) Returns largest integer not greater than n. 

PRINT CINT (15.0075) 

CQSO) Computes cosine; angle must be in radians. 

Y = COS(X) 

CSNGfx) Converts to single-precision. 

FC = CSNG(TM*) 

ERL Returns the line number in which an error has 

occurred. 
PRINT ERL 

ERR If an error occurs, returns a value related to the 

error code: value returned = (error code - i) -2. 
IF ERR = 12 THEN 650 ELSE 800 

EXPfx) Computes natural antllog. 

Y = EXP(X) 

FIXfx) Truncates all digits to right of decimal point. 

Y = FIX(X) 

FRE(numertc) Find amount of free memory. 

F = FRE(X) PRINT FRE(10) 

FRE(str) Returns amount of unused string space, str 

is any string constant or string variable. 
FRE("C") FRE(C$) 

INKEYS Gets keyboard character if available. 

AS = INKEYS 

INP(p) Gets value from specified port, p = 0- 255. 

Y = INP(255) 

INTO) Returns largest whole number not greater 

than x. 

Y = INT(X) 

LEFTSfstr, c) Returns left portion of string. 

PS = LEFT$(M$, 7) 

LEN(str) Returns the number of characters in 

a string. 
X = LEN(SENS) 



LOGfx) Computes natural logarithm. 

Y = LOG(X) 

MEM Finds amount of free memory. 

PRINT MEM 

MID$ (string, pos, ten) Returns a substring of 

another string. If length option is omitted, the entire string 

right of pos is returned. 

PRINT MIDS(AS, 3, 2) FS = MIDS (AS, 3) 



Gets value in location n (n = to end of 



PEEK (n) 
memory). 

Y = PEEK (18520) 

POINTfx, y) Tests whether specified graphics block 

is on or off. x (horizontal) = - 1 27; y (vertical) = 0-47. 
IF POINT (13, 35) THEN PRINT "ON" ELSE PRINT "OFF" 

POSfx) Returns column position of cursor (0 - 63). 

x Is a dummy argument. 
PRINT TAB(40) P0S(0) 

RIGHT$(str, c) Returns right portion of string. 

ZIPS = RIGHT(ADS, 5) 

RND(n) Generates a "random" number between 1 

and n if n > 1 , or between 1 if n = 0. 

Y = RND(100) PRINT RND(0) R = RND(X) 

SGN(x) Returns sign component: - 1, 0, 1 if x is 

negative, zero, positive. 
X = SGN (A-B) 

SIN(x) Computes sine; angle must be in radians. 

Y = SIN(X) 

SQR(x) Computes square root. 

Y = SQR (A + B) 

STR$(x) Converts a numeric expression to a string. 

SS = STR$(X) 

STRING$(I, c) Returns string of characters of 

length I. Character c can be specified as an ASCII code or 
as a string. 
BS = (1 25, "?") BS = STRINGS (1 25, 63) 

TANfx) Computes tangent; angle must be in radians. 

Y = TAN(X) 

TIMES Returns the time (in 24-hour format) and the 

data as a 1 7-character string. 
AS = TIMES 

USRfx) Calls a machine-language subroutine whose 

address is stored at 16526 - 16527. 
PRINT USR(-l) X = USR(Y) 

VAL(str) Evaluates a string as a number. 

V% = VALP 00 DOLLARS") 



VARPTR(t>ar) 
are stored. 
Y = USR (VARPTR (X)) 



Gets address where variable contents 
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INDEX 



ABS( exp), 190 

Algorithm, 97 

AND, 183 

Arithmetic Functions, 190 

ABS( exp ) ( ATN( exp ) , CDBL( exp ) , 
Cim( ex h ), COS (^P ), CSNG(exp ) 
EXP( exp ) , FIX( exp ) , INT( exp ) ( 
L0G( exp), SIN( exp), SGN( exp), 
SQR( exp ) , TAN( exp ) 

Arrays , 151 

"Art", Random, 68 

ASC( string ) , 177 

Asteroids, Game Program, 123 

ATN( exp ) , 190 

AUTO mm, nn, 188 



B 



Backspace Key, 7, 28 
Bar Graph, 56, 57 
Biological Simulations, 135, 138 
Bounce, Keyboard, 13, 112 
Branching, 25 
rBHEAKl Key, 4, 7, 9, 13, 28 



Campus Planning Program, 58 

Cassette Program Loading, 109 

Cautions , 154 

CDBL( exp), 190 

Challenge Problems, 34, 47, 48 

Changes, 129 

Changing Instructions, 13 

CHR$: 

( ), 63, 64, 65, 169, 173, 177 

( ), PRINT, 170 

( ), Effects of, 63-65 
CINT( exp ) , 190 
Cip_her Program, 179 
[CLEARl Key, 4, 7, 14, 28 
CLOAD, 109 

CLS, Clear Screen, 24 
Code Message Program, 179 
Comma, 11, 14 
Cccmands in Your Programs, 

Keyboard, 161 
Computer- Assisted Problem Solving, 

Steps For, 82 
Concatenate Strings, 178 
Conference Proceedings, 185 
Continuous Function, 41 
Correction, Error, 42 



C0S( exp ) , 190 

Counselor, Robot, 180 

CSAVE, Saving a Program on Tape, 111 

CSNG( exp ) , 190 



D 



DEF, 147 

DEEDBL, 88, 148 

DEFINT, Variables, 148 

DELETE mm-nn , 190 

Deleted, 128 

Designators, Variable type, 149 

Dice Throwing Program, 134 

Display, Truncated, 23 

Double Letters, 112, 154 

Double Precision Arithmetic, 88 

Double Precision Variables, 147 

In FOR, . .NEXT Loops, 155 
Double Size Letters, 14, 18, 28 



EDIT, 127-133 

Editing, 42 

Edit Mode Subconmands, 130 

Ehrenfest Model, Three Molecules, 

"Gu ppy" Problems, 139 
lENTERl : 

Key, 4, 7, 28 

LIST, 10, 28 

NEW, 28 

RUN, 28 
E+SZS8, 14 

Equation Solver, 36, 41 
Erase, 7, 28 
ERROR: 

Correction, 42 

Messages , 159 , 160 
EXP(exp), 190 
Extended Print Instructions, 163 



Factorial, 46 

Factor Program, 195 

FALSE, 183 

Faster Forms, 158 

Fast N Such That N 2 Ends in N, 94 

Field Specifiers, PRINT USING, 165 

Fix, Keyboard, 13 

FIX( exp ) , 190 

Floating-Point Variables, 14, 147 
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Double Precision, 88, 147 
Flow Chart, 141, 142, 194 
FOR K = j} TO 2(3 STEP .5. . .NEXT K, 44 
Forms, Faster, 158 
FOR... NEXT, 35 
FOR Q = 1 TO 400: NEXT Q, 70 
FRE( string), 177 
Free Improvements for Cassette 

Use, 107 
Functions, Continuous, 41 
Functions, Graphing, 66 



Game Program, 125 

Asteroids , 123 

Guessing Game, 117 

Hangman, 118 

Pixel Hunt, 56 

Reverse Memory Test, 121 

Treasure Hunt, 116 
GOSUB nn , 189 
GOTO nn, 10 
Graph, 172 
Graph, Bar, 56, 57 
Graphics, 169 
Graphing, 167 

Graphing Functions, 66, 69 
"Guppy" Problem, Three Molecules, 

Ehrenfest Mode, 139 



lENTEBl 4, 6, 7, 28 

| SHIFT I , 3 
Keyboard, 3 

Keyboard Bounce, 13, 111 
Keyboard Conmands, 161 
Keyboard Fix, 13 
Keyboard Instructions, 20 



Large Numbers, 86 
Last 3 Dibits, 33 
Lef t( string, n ), 178 
LEN(st ringr) , 177 

LIoT PSrTB":! 5 10 -~ 
LiPT mm-nn , 18 J 
hj}( exp ) , 1X> 
Logical Operators, 132 
"Loop, Tight", 64 



Malfunctions, 196 

Map, Video Screen, 51, 54 

MEMORY SIZE, 8 

Message , 59 

Micro Research Problems, 77, 99, 

192, 202 
MID$( string p,n ), 178 
Music, Sound and, 112 



H 



N 



Hangman, Game Program, 118 
Headings, 25, 27 
Histogram, 57 
Hunt, Pixel Hunt Game, 56 



NEW, 9, 13, 28 

NOT, 183 

Numbers, Random, RND(0), RND( ), 49 

Numeric Character, 165 







Improving Programs, 114, 198 
Information, Additional, 184 
IMEY$, 177, 179 
Instructions, 223 



ON N GOSUB mm, nn, pp, qq, . , 189 
ON N GOTO a , b , c , . . . ,z, 70 
ON N GOTO mm, nn, pp, qq, ..., 189 
Operators, Logical, 182 
OR, 183 



Jargon Phrase Maker, 175 
Journals , 185 



Key 



BREAK 



CLEAR 



5, 7, 28 

4, 9, 13, 28 

4, 7, 14, 28 



PEEK, 191 
Periodicals, 185 
Pixel Hunt Game, 56 
Pixels, 56, 170 
POINT(x,y), 57 
POKE, 191 

POKE Address, Pixel Number 
Instruction, 171 
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Precision Variables, Double, 147 
PRINT, 4 

@,50, 70 

CRR$(n), 70, 170 

STRING$, 167, 168 

USING Field Specifiers, 165 
Problem: N Such That N 2 Ends in N, 

81 
Problems, Challenge, 34, 47, 48 
Proceedings, Conference, 185 
Program, 

Factor, 203 

Game, 116, 117, 118, 121, 123, 125 

Load From Cassette, 109 



Question Mark ?, 43 



R 
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Radio Shack Computer Center, 

RANDOM, 133, 191 

Random "Art", 68 

Random Numbers, 49, 133 

READY, 8 

Research (micro) Problems You May 

Undertake, 99, 202 
HESET(x, y ), 55 
RESTORE, 189 
RETURN, 189 

Reverse Memory Test Game, 122 
RIGHT$( string, n ), 178 
END: 

(K), 133 

(n), 70 

(S3), 70, 133 
Robot Counselor, 180 
RUN , 5, 70 

I ENTER! 28 

mm , 186 



Saving Computer Time , 21, 91, 94, 

158, 200ff 
Saving Memory Space, 157 
Saving Program On Tape, CSAVE, 111 
Screen Video Map, 51, 54 
Scrolling, 53 
Semicolon, 14 
Sentence Generator, 174 
SET(x,y), 55 
SGN(e ), 190 
fSHIFTl , 3, 14, 28 
Simulate, 143 
Simulation, 133, 135 



SIN(exp), 190 

Snowflake, 71 

Solver, Equation, 36-41 

Sound and Music, 112 

Space, Out of String, 154 

Speeding Up Programs, 158 

SQR(exp), 190 

Static Electricity, 156 

Statistics, 150 

Steps for Computer-Assisted 

Problem Solving, 82 
Store the Words in DATA 

Statements, 174 
String Concatenation,, 178 
String Instructions, 177, 178 
Strings, 173-183 
STRING$( K, character" or number,), 

167, 178 
STR$(exp), 178 
Subcommands, Edit Mode, 130 
Subscripted Variables, 150 
Symbol >- , 7, 14, 43 
SYSTEM, 188 



TAB(exp), PRINT, 164 
Tables, 21 
TAN(exp), 190 
Tape: 

Care, 108 

Cassette, 107 
Three molecules, Ehrenfest Model, 

"Guppy" Problem, 139 
"Tight Loop", 62 
Time, 90 
Tips, 154 
TRACE, 189 

Treasure Hunt , Game Program, 116 
TROFF, 189 
TRCN, 189 
TRUE, 183 

Truncated Display, 23 
Twelve Days of Christmas, 48, 77 



U 



USR(n), 189 



V 



VAL( string), 178 

Value, PRINT USING String, 165 

Variable : 

DEFDBL, 148 

DEFINT, 148 

Double Precision, 147 
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Floating-Point Single 

Precision, 147 
Integer, 148 
String, 148 
Subscripted, 150 
Type Designators, 149 
Types, 147 

Video Screen Map, 51, 54 

Volume, 109 

W 

Wages, 47 

Wild Screen, 124 

Word Generator, 175 
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Instructions 



AUTO stmt, increment Numbers lines automatically 

AUTO AUTO 1 50, 20 ALTTO ,5 

CLEARn Reserves n bytes of string storage space, 

initializes all variables. 

CLEAR CLEAR 75 CLEAR 

CLOAD Loads BASIC program tile from cassette Only 

Ihe first character of the file name is used 
CLOAD CLOAD "MBtff" 

CLOAD? Compares program on tape byte-for-byte 

with resident program. 
CLOAD? CLOAD' 'MIXIT' 

CLS Cleats the display 

CLS 
CONT Continues execution of program after BREAK 

or STOP 

CONT 

CSAVE Stores resident program on cassette tape. A file 

name is required. Only the first character at the file name is 



DATA Stores data to be accessed av a READ state- 

ment. 

DATA LINCOLN, ft," 1861 ILLINOIS 

DEFDBL Defines variables as double-precision. 

DEFDBL V, X-Z 

DEFINT Defines variables as integer type 

DEFINTA. IN 
DEFSNG Defines variables as single-precision. 

DEfSNO I. W-Z 

DEFSTR Defines variables as string type 

DEFSTR C. L-Z 

DELETE Erases program lines fram memory 

OELFTF 1205 DELETE - SO DELETE 

DIM Dimensions one or more arrays. 

DIM R(75). W(4G) DIM ARS(B 25) 

DIM L%(3„ IB, 5) 

EDIT Puis computer into edit mode for specified line. 

See Edit Commands. 

EDIT 100 EDIT 

END Ends program execution 

END 

ERRORS Simulates the specified, error n 1 23 

ERROR(l) 

FOR ... TO - - - STEP/NEXT Opens program loop 

FORI 1 f0 8{ .)NEXri 

FORC TO 5 STEP 2 ( .) NEXT C» 

GOSUB Tronslers program control to the specified 

subroutine 

GOSUB 750 

GOTO Transient program control to the specified fine 

GOTO 1 80 

IF - - . THEN . . . ELSE Tests conditional expression 

IF P Q THEN 200 
IF N% ^ THEN 1 50 ELSE N% N% 1 

INPUT Inputs data trom keyboard 

INPUT X' INPUT L, M. N INPUT 'NEXT' ,N 

INPUT * S Inputs data from cassette 

INPUT* I. A 

LET Assigns value to variable (optional). 

LET X 7 05 LET R2 Rl LET C5 REO 

LIST Lists progiam lines to the video displav 

LIST LIST 50-85 

LUST Lists program lines to Ihe video display 

LUST LUST 50— 

LPRINT Piints on item or list of items on ihe printer 

LPRINT CAPS: "IS THE CAPITAL OF', STS 

LPRINT TAB Moves primer carrioge to specified posi 

fion 

LPRINT TAB(25) "NAME" 

LPRINT USING Prinls tormotted numbers and strings 

on the printer, See PRINT USING for list of field specifiers 
LPRINT USING"" * " ".": 1234 

NEW Eroses program trom memory: inilialszes oil 

variables 
NEW 

ON ERROR GOTO Sets up on error-handling louline 

ON ERROR GOTO 2100 

ON ERROR GOTO Disables an error handling 

routine. 

ON' FRRQR GOTO 



ON . . . GOSUB Multi-way branch to specified subrou- 

tines 
ON Y GOSUB 50. 100, 150. 200 

ON . . . GOTO Multt-way branch to specified lines 

ON KG0T0 190, 200. 210 

OUT p. v Sends value to specified port p and v 

255 
OUT 255, 

POKE n, v. Puts valuev (0 255) into location n (1 5360 

to end oi memory) See POKE Addresses. 

POKE 15872. 255 

PRINT Prints an item or list of items on the display at 

current cursor position 

PRINT XI - Y f PRINT 1, US.A' 1 

.PRINT i.--rt Prints beginning at n, n 1023. 

PRINT iv 477. "CENTER" 

PRINT * I Writes data to cassette. 

PRINT ' 1 . A 

PRINT TAB Moves cursor right ta specified tab posi- 

tion 

PRINT TA6{20} "NAME" 

PRINT USING Formats strings and numbers: 

# Formats numbers. 

PRINT USING " .66 2 

Decimal point. 
PRINT USING "* '."": 58,76 

Displays comma to left of every third digit, 
PRINT USING -* * * -.'-. 1234 

Fills leading spaces with asterisks. 
PRINT USING"- - ' * * *";44.0 
$S Floating dollar sign 

PRINT USING SS* ' ' *"; 118.6735 
■ "S Floating dollar sign, fills leading spaces with aslerisks. 

PRINT USING ■"$* " *"; 6.333 
( Exponential format. Press |E; f© generate this character 
PRINT USING " ' ' -(([f. 8527100 

In first position, causes sign ta be printed; in lastoosirion 
causes sign to be printed after ihe number. 
PRINT USING ■■+* " *"; 216 

Minus sign afternegative numbers, spaceatter positive 
PRINT USING ■" ' * '" , 8124 420 
I Returns first string character 
PRINT USING T: "-YELLOW 

%spaces% String field; length of field is n umber of spaces 
plus 2 

PRINT USING "% %"; "BLUE" 

RANDOM Reseeds random number generator 

RANDOM 

READ Reads value(s) from a DATA statement 

READ T READ SS READ NMS. AGE 

REM Remark; instructs computer to ignore rest of line Is 

an abbreviation lor REM 

REM PLACE COMMENTS HERE 'HERE TOO 

RESET fx. y) Turns off graphics block at specified 

location x (horizonfal) - 127. y (vertical) 47 
RESET (21. 40) RESET (LI. L2) 

RESTORE Resets data pointer to first item in first dafo 

line. 
RESTORE 

RESUME Ends an error-handling routine by specifying 

where normal execution is fo resume. 
RESUME RESUME 40 RESUME NEXT 

RETURN Returns from subroutine to nexl statement 

after GOSUB. 
RETURN 

RUN Executes resident program or portion of if 

RUN RUN 150 

SET (x, y) Turns on graphics block of specified loca- 

lion. x (horizontal) 127; y (vertical) - 47. 
SET (10. 0) SET(L1,L2) 

STOP Stops execution of o program. 

STOP 

SYSTEM Puts computer in monitor mode r allows 

loading of ob|ect files In response to '7, type filename or 
/add res 5 

SYSTEM 

TROFF Turns off the trace 

THOFF 

TRON Turns an the trace 

TRON 



Error Messages 



Abbreviation Explanation 



Control Keys 



NF 

SN 

RG 

OD 

FC 

OV 

OM 

UL 

BS 

DD 

.0 

ID 

TM 

OS 

LS 

ST 

CN 

NR 

RW 

UE 

MO 

FD 

L3 



NEXT without FOR 

Svntox error 

RETURN without GOSUB 

Out ot data 

Illegal function call 

Overflow 

Out of memory 

Undefined line 

Subscript out of range 

Redimensioned array 

Division by zero 

Illegal direct 

Type mismatch 

Out of string space 

String too long 

String formula too complex 

Can't continue 

No RESUME 

RESUME without error 

Undefined erroi 

Missing operand 

Bad file data 

Disk BASIC feature 



[SHIFT] g 
[break | 



ENTER 



SPACEBAR 



E 




[SHIFT 1 \S 



IsHinj | >J 'J 
(shTft j 



Cancels last character 

typed; moves cursor back one space 

Erases current line. 

Interrupts anything in progress and 
returns to command level 

Clears the screen 

Signifies end ol current line 

Enters a space (blank) character ana 
moves cursor one space forward 

Advances cursor to next tab position 

Puts display in 32-characler mode. 

Line feed and carriage return 

Control" key— hold down these 
two ond press any key A-Z for control A- 
control Z 

Copies Ihe display contents to the 
printer 

Causes currently executing program lo 
pause (press any key to continue) 



Edit Commands 



Special Characters 




Cancels changes and starts again 

Changes n characters 

Deletes n characters. 

Ends editing and . ives all changes. 

Hacks line and inserts at end 

Inserts characters. 

Kills all characters up to nth occurence of c 

Lists the line. 

Quits edit mode and cancels all changes. 

Searches for nth occurrence of c. 

Extends line (inserts at end) 

Causes escape from command 

Records all changes and exits edit mode. 

Moves cursor n spaces to the right. 

Moves cursor n spaces to the left 



Abbreviation for .REM 

Makes variable integer-precision 

Makes variable single-precision 

Makes variable double-precision 

Makes variable string type 

Separates statements on the same line 

Same as PRINT (bul L? can't be substituted for LPRINT). 

PRINT punctuation: spaces over 

fo the next 16-column PRINT zone 

PRINT punctuation, separates items in a 

PRINT list but does not add spaces when they 

are output 
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